puts "========================"
puts " OCC418 "
puts "CTS20370"
puts "(case 1)"
puts "========================"
puts ""

restore [locate_data_file CTO904_cts20370-part.rle] part 
puts [checkshape part]

restore [locate_data_file cts20370-tool.rle] tool 
puts [checkshape tool]

bsection sec part tool
puts [checkshape -top sec]

bcut result part tool
puts [checkshape -top result]

set square 273365.
set 2dviewer 0