Commit | Line | Data |
---|---|---|
40093367 | 1 | #box b -30 -30 -30 60 60 30 |
2 | #ptorus f 35 10 90 180 | |
3 | #explode b F | |
4 | #explode f F | |
5 | #glue s f b f_2 b_6 | |
6 | #trotate s 0 0 0 1 1 0 -40 | |
7 | #trotate s 0 0 0 0 0 1 -10 | |
8 | ||
9 | restore 6_E1234.draw s | |
10 | tscale s 0 0 0 SCALE2 | |
11 | explode s E | |
12 | mkevol result s | |
13 | updatevol s_7 0 4*SCALE2 1 8*SCALE2 2 5*SCALE2 | |
14 | buildevol | |
15 | ||
16 | set square 18941.8 |