40093367 |
1 | ## Extension of /users/skv/testref/cd1/ED/cto/003/D1 |
2 | |
3 | dset r sqrt(2) |
4 | dset k r/2 |
5 | |
6 | vertex v1 0 0 0 |
7 | vertex v2 1 0 0 |
8 | vertex v3 1 1 0 |
9 | vertex v4 0 1 0 |
10 | |
11 | edge e1 v1 v2 |
12 | edge e2 v2 v3 |
13 | edge e3 v3 v4 |
14 | edge e4 v4 v1 |
15 | |
16 | wire wa e1 e2 e3 e4 |
17 | mkplane fa wa |
18 | prism ba fa 0 0 1 |
19 | |
20 | |
21 | vertex v3 -0.25 -0.25 0 |
22 | vertex v4 2 -0.25 0 |
23 | edge eb v3 v4 |
24 | prism fb eb 0 k-0.25 0 |
25 | prism bb fb 0 0 1 |
26 | |
27 | vertex v5 -0.25 -0.25 0 |
28 | vertex v6 2 -0.25 0 |
29 | vertex v7 2 k 0 |
30 | vertex v8 -0.25 k 0 |
31 | |
32 | edge e5 v5 v6 |
33 | edge e6 v6 v7 |
34 | edge e7 v7 v8 |
35 | edge e8 v8 v5 |
36 | |
37 | wire wb e5 e6 e7 e8 |
38 | mkplane fb wb |
39 | prism bb fb 0 0 1 |
40 | |
41 | trotate bb -0.25 -0.25 0 0 0 1 45 |
42 | |
43 | |
44 | bcommon result ba bb |
45 | |
58cf74e0 |
46 | checkprops result -s 4.41421 |