Commit | Line | Data |
---|---|---|
40093367 | 1 | bsplinecurve w1 3 2 -1.0 4 1.0 4 0 0 0 1 2 10 0 1 4 6 0 1 10 0 0 1 |
2 | mkedge w1 w1 | |
3 | polyline w2 10 0 0 0 0 0 | |
4 | wire w w1 w2 | |
5 | mkplane w w | |
6 | prism s w 0 2 10 | |
7 | tscale s 0 0 0 SCALE1 | |
8 | explode s E | |
9 | mkevol result s | |
10 | updatevol s_1 0 0.5*SCALE1 1 1.*SCALE1 2 0.5*SCALE1 | |
11 | buildevol | |
12 | ||
13 | set square 33785.2 |