puts "=========="
puts "BUC60462"
puts "=========="

restore [locate_data_file buc60462c.brep] a 
checkshape a
restore [locate_data_file buc60462d.brep] b
checkshape b
puts "Fuse begin"
bfuse result a b
puts "Fuse end"

checkshape result r

set square 94371.7
set 2dviewer 0
