tests/bugs/vis/bug26357

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