| 1 | puts "============" |
| 2 | puts "OCC25937" |
| 3 | puts "============" |
| 4 | puts "" |
| 5 | ############################### |
| 6 | ## Failed Cut Edge or Face by HalfSpace. |
| 7 | ############################### |
| 8 | |
| 9 | # Cut a wire by halfspace |
| 10 | plane h 0 0 0 1 0 0 |
| 11 | mkface h h |
| 12 | halfspace h h 10 0 0 |
| 13 | polyline a -10 -10 0 10 -10 0 10 10 0 -10 10 0 -10 -10 0 |
| 14 | |
| 15 | bop a h |
| 16 | bopcut result |
| 17 | |
| 18 | checkprops result -l 40. |
| 19 | checkshape result |
| 20 | checksection result |
| 21 | |
| 22 | set nbshapes_expected " |
| 23 | Number of shapes in shape |
| 24 | VERTEX : 4 |
| 25 | EDGE : 3 |
| 26 | WIRE : 1 |
| 27 | FACE : 0 |
| 28 | SHELL : 0 |
| 29 | SOLID : 0 |
| 30 | COMPSOLID : 0 |
| 31 | COMPOUND : 1 |
| 32 | SHAPE : 9 |
| 33 | " |
| 34 | checknbshapes result -ref ${nbshapes_expected} -t -m "Result obtained by Cut a wire by halfspace" |
| 35 | checkview -display result -3d -path ${imagedir}/${test_image}.png |