projects / occt.git / blame
| Commit | Line | Data |
|---|---|---|
| 40093367 | 1 | |
| 2 | ## prism the diagonal face as we would in Euclid Designer | |
| 3 | ||
| 4 | vertex v1 0 0 0 | |
| 5 | vertex v2 1 0 0 | |
| 6 | vertex v3 1 1 0 | |
| 7 | vertex v4 0 1 0 | |
| 8 | ||
| 9 | edge e1 v1 v2 | |
| 10 | edge e2 v2 v3 | |
| 11 | edge e3 v3 v4 | |
| 12 | edge e4 v4 v1 | |
| 13 | ||
| 14 | wire wa e1 e2 e3 e4 | |
| 15 | mkplane fa wa | |
| 16 | prism ba fa 0 0 1 | |
| 17 | ||
| 18 | # prism from bottom | |
| 19 | ||
| 20 | vertex v5 0 0 0 | |
| 21 | vertex v6 1 1 0 | |
| 22 | vertex v7 1 1 1 | |
| 23 | vertex v8 0 0 1 | |
| 24 | ||
| 25 | edge e5 v5 v6 | |
| 26 | edge e6 v6 v7 | |
| 27 | edge e7 v7 v8 | |
| 28 | edge e8 v8 v5 | |
| 29 | ||
| 30 | wire wb e5 e6 e7 e8 | |
| 31 | mkplane fb wb | |
| 32 | ||
| 33 | prism bb fb -.5 .5 0 | |
| 34 | ||
| 35 | bcommon result ba bb | |
| 36 | ||
| 37 | set square 4.41421 |