Commit | Line | Data |
---|---|---|
40093367 | 1 | #pcylinder s1 5 20 |
2 | #pcylinder s2 5 12 | |
3 | #ttranslate s2 5 0 3 | |
4 | #ttranslate s1 s2 5 5 0 | |
5 | #fuse s s1 s2 | |
6 | #save s I5678.draw | |
7 | ||
8418c617 | 8 | restore [locate_data_file I5678.draw] s |
40093367 | 9 | tscale s 0 0 0 SCALE1 |
10 | explode s e | |
11 | mkevol result s | |
12 | updatevol s_4 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1 | |
13 | buildevol | |
14 | ||
15 | set square 100596 |