tests/draft/angle/K8

   1 #D4----------------------------------------------
   2 puts "TODO OCC22803 All:Faulty shapes in variables faulty_1 to"
   3
   4 plane pt 0 0 0 1 0 0
   5 ptorus pt pt 15 12
   6 profile pf o -5 .5 15 l 10 c 2 90 l 5 d -1 0 \
   7 l 14 d 0 -1 l 5 c 2 90
   8 prism pr pf 0 0 25
   9 bfuse f pt pr
  10 nexplode f f
  11 depouille result f 0 0 1 f_4 5 0 0 40 0 0 1
  12
  13 set square 10112.2