Commit | Line | Data |
---|---|---|
40093367 | 1 | ## Extension of /users/skv/testref/cd1/ED/cto/001/D1 |
2 | ||
3 | ## inverted construction | |
4 | ||
5 | vertex v1 2 2 0 | |
6 | vertex v2 4 2 0 | |
7 | vertex v3 4 4 0 | |
8 | vertex v4 2 4 0 | |
9 | ||
10 | edge e1 v1 v2 | |
11 | edge e2 v2 v3 | |
12 | edge e3 v3 v4 | |
13 | edge e4 v4 v1 | |
14 | ||
15 | wire wa e1 e2 e3 e4 | |
16 | mkplane fa wa | |
17 | prism ba fa 0 0 4 | |
18 | ||
19 | # prism from top | |
20 | ||
21 | vertex v5 2 0 4 | |
22 | vertex v6 3 0 4 | |
23 | vertex v7 3 3 4 | |
24 | vertex v8 2 3 4 | |
25 | ||
26 | edge e5 v5 v6 | |
27 | edge e6 v6 v7 | |
28 | edge e7 v7 v8 | |
29 | edge e8 v8 v5 | |
30 | ||
31 | wire wb e5 e6 e7 e8 | |
32 | mkplane fb wb | |
33 | ||
34 | prism bb fb 0 0 -4 | |
35 | ||
36 | bcommon result ba bb | |
37 | ||
38 | set square 18 |