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