puts "========================"
puts " OCC243 "
puts "========================"

#################################################
## puts "  BOPCOMMON   case_4_shell.brep and case_4_wire3.brep"
#################################################
 puts " " 
restore [locate_data_file case_4_shell.brep] a
restore [locate_data_file case_4_wire3.brep] b
puts [bop a b]
puts [bopcommon result]

checknbshapes result -vertex 15 -edge 10
set length 1150.78
set 2dviewer 0