puts "========================"
puts " OCC183 "
puts " CTS16184"
puts "(case 6)"
puts "========================"
puts ""

restore [locate_data_file CTO900_cts16184a.rle] a 
puts [checkshape a]
restore [locate_data_file cts16184b.brep] b
puts [checkshape b]

bop a b
bopfuse result a b
puts [checkshape -top result]

set check_square 1
set square 0.0892544
set 2dviewer 0