puts "========================"
puts " OCC539 "
puts "(case 1)"
puts "========================"
puts ""

 puts "==========================================="
 puts "  BOPCOMMON   case_4_shell.brep and case_4_wire3.brep"
 puts "==========================================="
 puts " " 
 puts [restore [locate_data_file case_4_shell.brep] a] 
 puts [restore [locate_data_file case_4_wire3.brep] b] 
 puts [bop a b]
 puts [bopcommon result]
set nb_info [nbshapes result]
set nb_v_good 15
set nb_e_good 10

set length 1150.78
set 2dviewer 0