3cdfdc9a |
1 | puts "TODO ?OCC24156 MacOS: TEST INCOMPLETE" |
2 | |
40093367 |
3 | #wedge b 10 10 10 0 5 0 5 |
4 | #explode b f |
5 | #depouille s1 b 1 0 0 b_5 15 0 0 10 5 0 0 |
6 | #polyline p1 0 0 0 0 10 5 0 0 10 0 0 0 |
7 | #mkplane p1 p1 |
8 | #prism p p1 -5 0 0 |
9 | #explode p f |
10 | #depouille s2 p 1 0 0 p_1 -15 0 0 10 5 0 0 |
11 | #explode s2 f |
12 | #explode s1 f |
13 | #glue s s1 s2 s1_1 s2_4 |
14 | #trotate s 0 0 0 0 0 1 -20 |
15 | #save s 5_E12.draw |
16 | |
34dd4990 |
17 | restore [locate_data_file CFI_5_e12fgj.rle] s |
40093367 |
18 | tscale s 0 0 0 SCALE1 |
19 | explode s E |
20 | blend result s 0.5*SCALE1 s_2 0.5*SCALE1 s_3 0.5*SCALE1 s_10 |
21 | explode result So |
22 | tcopy result_1 result |
23 | |
24 | set square 10775.7 |