puts "============"
puts "OCC4993"
puts "============"
puts ""
######################################################
# Problem in boolean fusion
# (new topology)
######################################################

restore [locate_data_file OCC4993-s1.brep] s1 
restore [locate_data_file OCC4993-s2.brep] s2 

checkshape s1
checkshape s2

bop s2 s1
bopfuse result

checkprops result -s 4854.51 
checkshape result

checknbshapes result -vertex 40 -edge 64 -wire 24 -face 24 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 155
checkview -display result -2d -path ${imagedir}/${test_image}.png