puts ""
restore [locate_data_file CTO904_cts20370-part.rle] part
-puts [checkshape part]
+checkshape part
restore [locate_data_file cts20370-tool.rle] tool
-puts [checkshape tool]
+checkshape tool
bsection sec part tool
-puts [checkshape -top sec]
+checkshape -top sec
bcut result part tool
-puts [checkshape -top result]
+checkshape -top result
set square 273365.
set 2dviewer 0