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 | circle w -20 0 0 20 | |
6 | mkedge w w 0 pi*2/5 | |
7 | wire w w | |
8 | polyline profile 0 0 0 10 0 0 5 0 5 0 0 0 | |
9 | mkplane profile profile | |
10 | pipe s w profile | |
11 | ||
12 | OFFSETSHAPE 1 {s_2 s_3} $calcul $type | |
13 | ||
14 | set volume 0 |