puts "TODO OCC12345 ALL: Error : The square of result shape is"
puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"

puts "========================"
puts " OCC420 "
puts "PRO12473"
puts "========================"
puts ""

restore [locate_data_file CTO909_objects.brep] a 
puts [checkshape a]

restore [locate_data_file CTO909_tool_4.brep] b 
puts [checkshape b]

bsection sec a b
puts [checksection sec]
puts [checkshape sec]
explode a so
renamevar a_1 a

bcut result a b

set square 0
set 2dviewer 0