e57aedeb |
1 | puts "========" |
2 | puts "OCC28830" |
3 | puts "========" |
4 | puts "" |
5 | ######################################## |
6 | # HalfSpace command chooses the wrong side of the given shell |
7 | ######################################## |
8 | |
9 | # Restore the initial shape |
10 | restore [locate_data_file bug28830_halfspace.brep] sh |
11 | |
12 | point p 9.30222203002736 0.87421058209264 1.54257060749683 |
13 | halfspace h sh 9.30222203002736 0.87421058209264 1.54257060749683 |
14 | |
15 | if {![regexp "IN" [bclassify h p]]} { |
16 | puts "Error: halfspace is wrong" |
17 | } else { |
18 | puts "OK: halfspace is good" |
19 | } |