puts "========================"
puts " OCC411 "
puts "========================"
puts ""

restore [locate_data_file f4] b1 
puts [checkshape b1]

restore [locate_data_file f5] b2
puts [checkshape b2]

bfuse result b1 b2

set square 314.159
set 2dviewer 0