tests/draft/angle/G8

   1 #F6----------------------------------------------
   2 puts "TODO OCC22803 All:Faulty shapes in variables faulty_1 to faulty_"
   3 puts "TODO OCC22803 All:Error : The area of the resulting shape is"
   4 polyline p 0 0 3  0 0 0  10 0 0  10 0 3
   5 beziercurve bc 4 10 0 3  7 0 2  3 0 3  0 0 3
   6 mkedge bc bc
   7 wire p p bc
   8 mkplane p p
   9 revol p p 0 0 0 0 0 1 360
  10 profile pf o 0 -5 1 p 1 -1 0 1 1 0 l 7 t 0 7 \
  11 t -5 0
  12 revol pr pf -1 -7 0 0 0 1 70
  13 bfuse f p pr
  14 nexplode f f
  15 if { [catch { depouille result f 0 0 1 f_4 3 0 0 10 0 0 1 } ] != 0 } {
  16   puts "Error in depouille"
  17 }
  18
  19 set square 0