puts "========================"
puts " OCC410 "
puts "(case 3)"
puts "========================"
puts ""

restore [locate_data_file f7] b1 
puts [checkshape b1]

restore [locate_data_file f3] b2
puts [checkshape b2]

bcut result b1 b2

set square 15.0891
set 2dviewer 0