+++ /dev/null
-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