puts "========================"
puts " OCC183 "
puts "(case 4)"
puts "========================"
puts ""

restore [locate_data_file so1] b1 
puts [checkshape b1]

restore [locate_data_file so2] b2
puts [checkshape b2]

bcommon result b1 b2
puts [checkshape result]

set check_square 1
set square 392.699
set 2dviewer 0