Commit | Line | Data |
---|---|---|
ab87e6fc | 1 | puts "TODO ?OCC23748 ALL: ERROR. offsetperform operation not done." |
2 | puts "TODO ?OCC23748 ALL: Tcl Exception: ERROR. offsetperform operation not done." | |
3 | puts "TODO ?OCC23748 ALL: TEST INCOMPLETE" | |
40093367 | 4 | |
5 | # 17.01.2010 | |
6 | cpulimit 600 | |
7 | # 17.01.2010 | |
8 | ||
9 | ellipse w1 0 0 0 15 10 | |
10 | mkedge w1 w1 0 pi/2 | |
11 | trotate w1 0 0 0 1 0 0 90 | |
12 | polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0 | |
13 | wire w w1 w2 | |
14 | mkplane w w | |
15 | revol s w 0 0 0 0 0 1 270 | |
16 | ||
17 | OFFSETSHAPE -1 {s_4 s_5} $calcul $type | |
18 | ||
19 | set volume 0 |