40093367 |
1 | #F6---------------------------------------------- |
2 | puts "TODO OCC22803 All:Error in depouille" |
3 | puts "TODO OCC22803 All:Error : The depouille can not be build" |
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 |