Commit | Line | Data |
---|---|---|
40093367 | 1 | beziercurve w 3 0 0 0 5 10 0 10 15 0 |
2 | mkedge w w | |
3 | wire w w | |
4 | polyline profile 0 0 0 10 0 0 10 0 10 0 0 10 0 0 0 | |
5 | mkplane profile profile | |
6 | pipe s w profile | |
7 | tscale s 0 0 0 SCALE1 | |
8 | fsameparameter s SCALE1*1.e-7 | |
9 | explode s E | |
10 | mkevol result s | |
11 | updatevol s_5 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1 | |
12 | buildevol | |
13 | ||
14 | set square 81492.8 |