Commit | Line | Data |
---|---|---|
40093367 | 1 | #circle c1 -sqrt(50) 0 0 10 |
2 | #mkedge c1 c1 pi*1/4 pi*7/4 | |
3 | #circle c2 sqrt(50) 0 0 10 | |
4 | #mkedge c2 c2 pi*5/4 pi*3/4 | |
5 | #wire w c1 c2 | |
6 | #mkplane w w | |
7 | #trotate w 0 0 0 1 0 0 90 | |
8 | #beziercurve c1 3 0 0 0 2 8 0 0 16 0 | |
9 | #mkedge c1 c1 | |
10 | #wire d c1 | |
11 | #pipe s d w | |
12 | #save s 8_I1.draw | |
13 | ||
8418c617 | 14 | restore [locate_data_file 8_I1.draw] s |
40093367 | 15 | tscale s 0 0 0 SCALE1 |
16 | fsameparameter s | |
17 | explode s E | |
18 | blend result s 2*SCALE1 s_2 | |
19 | explode result So | |
20 | tcopy result_1 result | |
21 | ||
22 | set square 263402 |