puts "=========="
puts "OCC23138"
puts "=========="
puts ""
###########################################
# BRepAlgoAPI_Fuse produce invalid result
###########################################

restore [locate_data_file bug23138_body.brep] b
restore [locate_data_file bug23138_thread.brep] t

bop b t
bopfuse result

set square 23233.2
set 2dviewer 1