1puts "============"
2puts "OCC25271"
3puts "============"
4puts ""
5############################################################################
6# Wrong result obtained by solid classifier algorithm
7############################################################################
8
9restore [locate_data_file bug25509_Aggreg_4.brep] b1
10point p 0.67610067704688293 0.55732782339337006 0.45537637265191699
11
12explode b1
13shape b2 So
14add b1_1 b2
15
16set cls [bclassify b2 p]
17if { [regexp {OUT} $cls] } {
18   puts "OK : Good result obtained by solid classifier algorithm"
19} else {
20   puts "Error : Wrong result obtained by solid classifier algorithm"
21}
22
23smallview
24fit
25checkview -screenshot -2d -path ${imagedir}/${test_image}.png
26