puts "=================7======="
puts "OCC611"
puts "SAM1564"
puts "(case 2)"
puts "========================"
puts ""
############################
## No possibility to fuse the shapes. 
############################

restore [locate_data_file OCC611.brep] a
explode a
checkshape a_1
checkshape a_2

bop a_1 a_2
bopfuse result
checkshape result

set square 531.197
set 2dviewer 0
