tests/bugs/modalg/buc60801

   1
   2 puts "========================"
   3 puts "BUC60801"
   4 puts "========================"
   5
   6 box b -10 -10 -10 30 40 40
   7 box a1 -20 0 -20 20 20 100
   8 box a2 0 20 -20 50 20 100
   9 box c -20 -20 20 100 100 100
  10 bcut r1 b a1
  11 bcut r2 r1 a2
  12 bcut r3 r2 c
  13 checkshape r3
  14
  15 renamevar r3 result
  16
  17 set square 6400
  18 set 2dviewer 0
  19