puts "====================================="
puts "COMMON of OCC118-1.brep and  OCC118-2.brep"
puts "====================================="

restore [locate_data_file OCC118-1.brep] a
restore [locate_data_file OCC118-2.brep] b

bop a b
bopcommon result


set square 844.929