1puts "============"
2puts "OCC27851"
3puts "============"
4puts ""
5############################################################################
6# Wrong result of classification of the point relative to the solid
7############################################################################
8
9restore [locate_data_file bug27851_shape.brep] s
10
11point p1 249.16536718159901 0.22123613283038124 5.3100000000000005
12point p2 249.16536718159901 0.22123613283038124 6.1800000000000006
13
14set cls1 [bclassify s p1]
15set cls2 [bclassify s p2]
16
17if { [regexp {IN} $cls1] } {
18    puts "OK : Good result of classification of a point p1 relative to solid"
19} else {
20    puts "Error : Wrong result of classification of a point p1 relative to solid"
21}
22
23if { [regexp {IN} $cls2] } {
24    puts "OK : Good result of classification of a point p2 relative to solid"
25} else {
26    puts "Error : Wrong result of classification of a point p2 relative to solid"
27}
28