tests/draft/angle/G5

   1 #F3----------------------------------------------
   2 puts "TODO OCC22803 All:Error in depouille"
   3 puts "TODO OCC22803 All:Error : The depouille can not be build."
   4
   5 polyline p 0 0 7  0 0 0  10 0 0  10 0 7
   6 beziercurve bc 4 10 0 7  7 0 7  3 0 7  0 0 7
   7 mkedge bc bc
   8 wire p p bc
   9 mkplane p p
  10 revol p p 0 0 0 0 0 1 360
  11 pcone pc 5 4 15
  12 bfuse f p pc
  13 nexplode f f
  14 if { [catch { depouille result f 0 0 1 f_4 1 0 0 15 0 0 1 } ] != 0 } {
  15   puts "Error in depouille"
  16 }
  17
  18 set square 0