puts "========================"
puts " OCC413 "
puts "(case 1)"
puts "========================"
puts ""

restore [locate_data_file so1] b1 
checkshape b1

restore [locate_data_file so4] b2
checkshape b2

bcommon result b1 b2

checkprops result -s 549.779 
checkshape result
set 2dviewer 0