40093367 |
1 | #wedge b 10 10 10 0 5 0 5 |
2 | #explode b f |
3 | #depouille s1 b 1 0 0 b_5 15 0 0 10 5 0 0 |
4 | #polyline p1 0 0 0 0 10 5 0 0 10 0 0 0 |
5 | #mkplane p1 p1 |
6 | #prism p p1 -5 0 0 |
7 | #explode p f |
8 | #depouille s2 p 1 0 0 p_1 -15 0 0 10 5 0 0 |
9 | #explode s2 f |
10 | #explode s1 f |
11 | #glue s s1 s2 s1_1 s2_4 |
12 | #trotate s 0 0 0 0 0 1 -20 |
13 | #save s 5_E12.draw |
14 | |
34dd4990 |
15 | restore [locate_data_file CFI_5_e12fgj.rle] s |
40093367 |
16 | tscale s 0 0 0 SCALE1 |
17 | explode s E |
18 | blend result s 1.2*SCALE1 s_13 1.4*SCALE1 s_12 6*SCALE1 s_10 1*SCALE1 s_2 5*SCALE1 s_3 |
19 | explode result So |
20 | tcopy result_1 result |
21 | |
22 | set square 10467.1 |