40093367 |
1 | #wedge b 10 10 10 0 5 0 5 |
2 | #explode b f |
3 | #depouille s1 b 1 0 0 b_5 30 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 -3 0 0 |
7 | #explode p f |
8 | #depouille s2 p 1 0 0 p_1 -30 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 8_E1.draw |
14 | |
8418c617 |
15 | restore [locate_data_file 8_E1.draw] s |
40093367 |
16 | tscale s 0 0 0 SCALE1 |
17 | explode s E |
18 | blend result s 0.5*SCALE1 s_2 |
19 | explode result So |
20 | tcopy result_1 result |
21 | |
22 | set square 33506.8 |