2 puts "========================"
5 puts "(COMMON: B and A)"
6 puts "========================"
8 restore [locate_data_file buc60775a.brep] a
10 restore [locate_data_file buc60775b.brep] b
14 puts [checkshape result]
16 set nf [llength [explode result f]]
18 puts "Error : the resulting shape is unclosed!!!"