puts "========================" puts "BUC60801" puts "========================" box b -10 -10 -10 30 40 40 box a1 -20 0 -20 20 20 100 box a2 0 20 -20 50 20 100 box c -20 -20 20 100 100 100 bcut r1 b a1 bcut r2 r1 a2 bcut r3 r2 c checkshape r3 renamevar r3 result set square 6400 set 2dviewer 0