puts "CTS60025"
puts "CUT doesn't give the waiting result."
puts ""
restore cts60025a.rle b
restore cts60025b.rle f

# Essai de cut
prism tool f 0 0 4

bcut result b tool

set square 51883