| 40093367 |
1 | ## Extension of /users/skv/testref/cd1/ED/cto/001/B1 |
| 2 | |
| 3 | ## common of two intersecting boxes |
| 4 | ## inverted construction of one of the boxes |
| 5 | |
| 6 | |
| 7 | vertex v1 0 0 0 |
| 8 | vertex v2 1 0 0 |
| 9 | vertex v3 1 1 0 |
| 10 | vertex v4 0 1 0 |
| 11 | |
| 12 | edge e1 v1 v2 |
| 13 | edge e2 v2 v3 |
| 14 | edge e3 v3 v4 |
| 15 | edge e4 v4 v1 |
| 16 | |
| 17 | wire wa e1 e2 e3 e4 |
| 18 | mkplane fa wa |
| 19 | prism ba fa 0 0 1 |
| 20 | |
| 21 | |
| 22 | vertex v5 0 0 1 |
| 23 | vertex v6 1 0 1 |
| 24 | vertex v7 1 .5 1 |
| 25 | vertex v8 0 .5 1 |
| 26 | |
| 27 | edge e5 v5 v6 |
| 28 | edge e6 v6 v7 |
| 29 | edge e7 v7 v8 |
| 30 | edge e8 v8 v5 |
| 31 | |
| 32 | wire wb e5 e6 e7 e8 |
| 33 | mkplane fb wb |
| 34 | prism bb fb 0 0 -1 |
| 35 | |
| 36 | |
| 37 | bcommon result ba bb |
| 38 | |
| 58cf74e0 |
39 | checkprops result -s 4 |
| 5747059b |
40 | checkview -display result -2d -s -otherwise { ba bb } -path ${imagedir}/${test_image}.png |
projects / occt.git / blame