puts "========================"
puts " OCC417 "
puts "CTS21128"
puts "========================"
puts ""

restore [locate_data_file cts21128c.rle] c 
checkshape c

restore [locate_data_file cts21128d.rle] d
checkshape d

bcut result c d

set square 2814.01
set 2dviewer 0