Commit | Line | Data |
---|---|---|
40093367 | 1 | puts "TODO OCC22817 All: exception.+There are no suitable edges" |
2 | puts "TODO OCC22817 All: \\*\\* Exception \\*\\*" | |
3 | puts "TODO OCC22817 All: TEST INCOMPLETE" | |
4 | ||
5 | pcylinder s1 3 10 | |
6 | pcylinder s2 4 16 | |
7 | trotate s2 0 0 0 1 0 0 80 | |
8 | ttranslate s2 0 9 -3 | |
9 | ttranslate s1 s2 5 5 0 | |
10 | bcut s s1 s2 | |
11 | tscale s 0 0 0 SCALE1 | |
12 | explode s e | |
13 | mkevol result s | |
14 | updatevol s_2 0 0.3*SCALE1 1 0.5*SCALE1 2 0.3*SCALE1 | |
15 | buildevol | |
16 | ||
17 | set square 0 |