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
boptuc result

checkprops result -s 3769.89 
checkshape result
checknbshapes result -vertex 3 -edge 8 -wire 3 -face 3 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 20
checkview -display result -2d -path ${imagedir}/${test_image}.png

