1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
puts "============"
puts "CR26357"
puts "============"
puts ""
#########################################################################
puts "Panning regression after fixing 0026082"
#########################################################################
box b 100 100 100
vinit View1 w=400 h=400
vinit View2 w=200 h=400
vinit View3 w=400 h=200
vclear
vaxo
vdisplay b
# Test panning with aspect ratio 1:1
vactivate View1
vfit
vpan 200 0
vmoveto 399 200
checkcolor 399 200 0 1 1
vpan -200 0
vmoveto 200 200
checkcolor 200 200 0 1 1
vdump ${imagedir}/${casename}_1.png
# Test panning with aspect ratio 1:2
vactivate View2
vfit
vpan 100 0
vmoveto 199 100
checkcolor 199 100 0 1 1
vpan -100 0
vmoveto 100 100
checkcolor 100 100 0 1 1
vdump ${imagedir}/${casename}_2.png
# Test panning with aspect ratio 2:1
vactivate View3
vfit
vpan 200 0
vmoveto 399 100
checkcolor 399 100 0 1 1
vpan -200 0
vmoveto 200 100
checkcolor 200 100 0 1 1
vdump ${imagedir}/${casename}_3.png
|
