0026833: Create command checkview containing all viewer types
[occt.git] / tests / bugs / modalg_6 / bug25271
1 puts "============"
2 puts "OCC25271"
3 puts "============"
4 puts ""
5 ############################################################################
6 # Wrong result obtained by solid classifier algorithm
7 ############################################################################
8
9 restore [locate_data_file bug25509_Aggreg_4.brep] b1
10 point p 0.67610067704688293 0.55732782339337006 0.45537637265191699
11
12 explode b1
13 shape b2 So
14 add b1_1 b2
15
16 set cls [bclassify b2 p]
17 if { [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
23 smallview
24 fit
25 checkview -screenshot -2d -path ${imagedir}/${test_image}.png