Commit | Line | Data |
---|---|---|
0e94a94e | 1 | |
2 | puts "========================" | |
3 | puts "BUC60801" | |
4 | puts "========================" | |
5 | ||
6 | box b -10 -10 -10 30 40 40 | |
7 | box a1 -20 0 -20 20 20 100 | |
8 | box a2 0 20 -20 50 20 100 | |
9 | box c -20 -20 20 100 100 100 | |
10 | bcut r1 b a1 | |
11 | bcut r2 r1 a2 | |
12 | bcut r3 r2 c | |
13 | checkshape r3 | |
14 | ||
15 | renamevar r3 result | |
16 | ||
17 | set square 6400 | |
18 | set 2dviewer 0 | |
19 |