tests/draft/angle/F9

   1 #E3----------------------------------------------
   2 puts "TODO OCC22803 All:Faulty shapes in variables faulty_1 to faulty_2"
   3 puts "TODO OCC22803 All:Error : The square of result shape is"
   4
   5 ptorus pt 25 24 90
   6 plane p 20 20 10 0 0 1
   7 pcone p p 10 8 40
   8 bfuse f pt p
   9 nexplode f f
  10 depouille result f 0 0 1 f_4 1 0 0 50 0 0 1
  11
  12 set square 0