puts "========================"
puts " OCC183 "
puts "(case 1)"
puts "========================"
puts ""

restore [locate_data_file f1] b1 
checkshape b1

restore [locate_data_file f4] b2
checkshape b2

bcommon result b1 b2
checkshape result

checkprops result -s 315.159
checkview -display result -2d -path ${imagedir}/${test_image}.png