tests/draft/angle/G2

   1 #E6----------------------------------------------
   2 puts "TODO ?OCC22803 ALL: Faulty shapes in variables faulty_1 to faulty_"
   3 puts "TODO ?OCC25111 ALL: The area of the resulting shape is"
   4
   5 ptorus pt 25 24 90
   6 profile pr o 20 18 5  p 0 -1 0 1 0 0 l 10 t 0 30 \
   7 t -7 0
   8 revol pr pr 18 18 0 0 0 1 360
   9 bfuse f pt pr
  10 nexplode f f
  11 depouille result f 0 0 1 f_5 3 0 0 35 0 0 1 \
  12 f_6 3 0 0 35 0 0 1
  13
  14 set square 10782.8