puts "========"
puts "OCC118"
puts "========"
########################################################
## The Cone part of final fuse shape becomes invisible
########################################################

restore [locate_data_file OCC118-1.brep] a 
checkshape a
restore [locate_data_file OCC118-2.brep] b
checkshape b

bfuse result b a

checkprops result -s 4844.63 
checkshape result
checkview -display result -3d -path ${imagedir}/${test_image}.png
