puts "========================" puts "BUC60775" puts "OCC160" puts "(FUSE: B and A)" puts "========================" restore [locate_data_file buc60775a.brep] a checkshape a restore [locate_data_file buc60775b.brep] b checkshape b bfuse result b a checkshape result set nf [llength [explode result f]] if {$nf < 6} { puts "Error : the resulting shape is unclosed!!!" } set square 328116 set 2dviewer 0