puts "TODO OCC12345 ALL: Error : The command is not valid"
puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"

puts "========================"
puts " OCC242 "
puts "========================"

#################################################
## puts "  BOPCOMMON   case_2_shell.brep and case_2_wire1.brep"
#################################################
 puts " " 
restore [locate_data_file OCC240a.brep] a
restore [locate_data_file case_2_wire1.brep] b
 puts [bop a b]
 puts [bopcommon result]
 set nb_info [nbshapes result]
 set nb_v_good 18
 set nb_e_good 9
 
 set length 0
 set 2dviewer 0