0027664: Incomplete intersection curve from the attached shapes
[occt.git] / tests / bugs / modalg_6 / bug27010
1 puts "============"
2 puts "OCC27010"
3 puts "============"
4 puts ""
5 ############################################################################
6 # Wrong classification of the point relatively the solid
7 ############################################################################
8
9 restore [locate_data_file bug27002_Compartment.brep] s
10 point p1 103.740000000001 2e-014 24.3498644581774
11 point p2 110.740000000001 2e-014 24.3498644581774
12
13 set cls1 [bclassify s p1]
14 if { [regexp {IN} $cls1] } {
15     puts "Error : Wrong result1 obtained by solid classifier algorithm"
16 } else {
17     puts "OK : Good result1 obtained by solid classifier algorithm"
18 }
19
20 set cls2 [bclassify s p2]
21 if { [regexp {IN} $cls2] } {
22     puts "Error : Wrong result2 obtained by solid classifier algorithm"
23 } else {
24     puts "OK : Good result2 obtained by solid classifier algorithm"
25 }
26
27 smallview
28 fit
29 checkview -screenshot -2d -path ${imagedir}/${test_image}.png