tests/draft/angle/K5

   1 #C5----------------------------------------------
   2 puts "TODO OCC22803 All:Faulty shapes in variables faulty_1 to faulty_6"
   3
   4 plane ps 10 -3 0  1 0 0  0 .2 1
   5 psphere ps ps 20
   6 profile pf o 5 -.5 10 l 10 c 5 90 l 5 d -1 0 \
   7 l 14 d 0 -1
   8 polyline pl 0 0 10 0 0 35
   9 pipe p2 pl pf
  10 bfuse f ps p2
  11 nexplode f f
  12 depouille result f 0 0 1 f_2 -5 0 0 35 0 0 1
  13
  14 set square 5465.24