puts "========"
puts "OCC780"
puts "SAM1239"
puts "(case 2)"
puts "========"
puts ""
#########################################
## Fuse and common between two faces are wrong (SAM1239)
#########################################

restore [locate_data_file OCC780.brep] f 
explode f f
checkshape f_1
checkshape f_2
                    
bfuse result f_1 f_2

set square 12566.4
set 2dviewer 0