Commit | Line | Data |
---|---|---|
40093367 | 1 | ## Extension of /users/skv/testref/cd1/ED/cto/009/C1 |
2 | ||
3 | vertex v1 -1 -1 0 | |
4 | vertex v2 2 -1 0 | |
5 | vertex v3 2 0 0 | |
6 | vertex v4 -1 0 0 | |
7 | ||
8 | edge e1 v1 v2 | |
9 | edge e2 v2 v3 | |
10 | edge e3 v3 v4 | |
11 | edge e4 v4 v1 | |
12 | ||
13 | wire wa e1 e2 e3 e4 | |
14 | mkplane fa wa | |
15 | prism ba fa 0 0 1 | |
16 | ||
17 | ||
18 | circle c 0 0 0 1 | |
19 | mkedge eb c | |
20 | wire wb eb | |
21 | mkplane fb wb | |
22 | prism cylb fb 0 0 2 | |
23 | ||
24 | ||
25 | bcommon result ba cylb | |
26 | ||
27 | set square 8.28319 |