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

bop a b
bopfuse result a b

set square 4844.63
set 2dviewer 0