puts "========================"
puts " OCC245 "
puts "========================"

#################################################
##  puts "  BOPTUC      case_5_shell.brep and case_5_wire3.brep"
#################################################
 puts " " 
restore [locate_data_file case_5_shell.brep] a
restore [locate_data_file case_4_wire3.brep] b
 puts [bop a b]
 puts [boptuc result]
 set nb_info [nbshapes result]
 set nb_v_good 3
 set nb_e_good 2
 
 set length 272.04
 set 2dviewer 0