puts "============"
puts "0026357: Visualization - Panning zooms view if aspect ratio > 1"
puts "============"
puts ""

box b 100 100 100

vclear
vinit View1 w=400 h=400
vinit View2 w=200 h=400
vinit View3 w=400 h=200

vdisplay -dispMode 1 -highMode 1 b

# Test panning with aspect ratio 1:1
vactivate View1
vaxo
vfit
vpan        200 0
vmoveto     399 200
if { [vreadpixel 399 200 rgb name] != "DARKTURQUOISE" } { puts "Error: incorrect color after forward panning in View1" }
vpan       -200 0
vmoveto     200 200
if { [vreadpixel 200 200 rgb name] != "DARKTURQUOISE" } { puts "Error: incorrect color after backward panning in View1" }
vdump ${imagedir}/${casename}_1.png

# Test panning with aspect ratio 1:2
vactivate View2
vaxo
vfit
vpan        100 0
vmoveto     199 100
if { [vreadpixel 199 100 rgb name] != "DARKTURQUOISE" } { puts "Error: incorrect color after forward panning in View2" }
vpan       -100 0
vmoveto     100 100
if { [vreadpixel 100 100 rgb name] != "DARKTURQUOISE" } { puts "Error: incorrect color after backward panning in View2" }
vdump ${imagedir}/${casename}_2.png

# Test panning with aspect ratio 2:1
vactivate View3
vaxo
vfit
vpan        200 0
vmoveto     399 100
if { [vreadpixel 399 100 rgb name] != "DARKTURQUOISE" } { puts "Error: incorrect color after forward panning in View3" }
vpan       -200 0
vmoveto     200 100
if { [vreadpixel 200 100 rgb name] != "DARKTURQUOISE" } { puts "Error: incorrect color after backward panning in View3" }
vdump ${imagedir}/${casename}_3.png
