puts "============"
puts "OCC13116"
puts "============"
puts ""
#######################################################################
# Boolean Operations produce faulty shape
#######################################################################

restore [locate_data_file OCC13116_sh1.brep] b1
restore [locate_data_file OCC13116_sh2.brep] b2

bop b1 b2
bopcut result

checkprops result -s 438194 
checkshape result
checknbshapes result -vertex 21 -edge 34 -wire 15 -face 15 -shell 2 -solid 1 -compsolid 0 -compound 1 -shape 89
checkview -display result -2d -path ${imagedir}/${test_image}.png