0032155: Tests - remove broken command OCC280
[occt.git] / tests / bugs / vis / bug280_3
1 puts "========"
2 puts "OCC280"
3 puts "3. Fitall on perspective view does not fit all properly"
4 puts "========"
5
6 vinit
7 box b 100 900 300
8 vdisplay b
9 vsetdispmode b 1
10
11 OCC280 0 1
12
13 set x_coord 22
14 set y_coord 241
15
16 puts "Before View->FitAll()"
17
18 checkcolor $x_coord $y_coord 0 0 0
19
20 vfit
21
22 puts "After View->FitAll()"
23
24 checkcolor $x_coord $y_coord 0.78 0.55 0.9
25
26 if { $stat != 1 } {
27     puts "Error : Function vfit works wrongly"
28 }
29
30 checkview -screenshot -3d -path ${imagedir}/${test_image}.png