puts "============"
puts "OCC2172"
puts "============"
puts ""
######################################################
# Fuse operation produces invalid shape
######################################################
## (new topology)
## (bfuse)
######################################################

restore [locate_data_file OCC2172-torus.brep] torus 
restore [locate_data_file OCC2172-cylinder.brep] cylinder 

checkshape torus
checkshape cylinder

bfuse result torus cylinder

set square 28603.8
set 3dviewer 1