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

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

bop a b 
bopcommon result


set square 838.302
