a87752f3 |
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 | |
b5ac8292 |
13 | set x_coord 22 |
197ac94e |
14 | set y_coord 241 |
a87752f3 |
15 | |
16 | puts "Before View->FitAll()" |
a87752f3 |
17 | |
f1aa2b62 |
18 | checkcolor $x_coord $y_coord 0 0 0 |
a87752f3 |
19 | |
20 | vfit |
21 | |
22 | puts "After View->FitAll()" |
a87752f3 |
23 | |
f1aa2b62 |
24 | checkcolor $x_coord $y_coord 0.78 0.55 0.9 |
a87752f3 |
25 | |
f1aa2b62 |
26 | if { $stat != 1 } { |
a87752f3 |
27 | puts "Error : Function vfit works wrongly" |
28 | } |
29 | |
5747059b |
30 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |