Commit | Line | Data |
---|---|---|
40093367 | 1 | #box s1 0 0 0 10 10 10 |
2 | #pcylinder s2 2 5 | |
3 | #ttranslate s2 10 10 0 | |
4 | #trotate s1 s2 0 0 0 0 0 1 -10 | |
5 | #fuse s s1 s2 | |
6 | #save s E5678.draw | |
7 | ||
34dd4990 | 8 | restore [locate_data_file CFI_e5678fil.rle] 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 64488.9 |