0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug28830
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 }