40093367 |
1 | beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0 |
2 | mkedge w w |
3 | wire w w |
4 | circle profile 0 0 0 1 0 0 5 |
5 | mkedge profile profile |
6 | wire profile profile |
7 | mkplane profile profile |
8 | pipe s w profile |
9 | |
10 | OFFSETSHAPE -1 {s_1 s_3} $calcul $type |
11 | |
12 | set volume 653.428 |