tests/bugs/vis/bug23747_2

   1 puts "============"
   2 puts "CR23747"
   3 puts "Checking environment mapping in general"
   4 puts "============"
   5 puts ""
   6
   7 vinit
   8 vclear
   9 vaxo
  10 psphere b 20
  11 vdisplay b
  12 vsetdispmode b 1
  13 vfit
  14
  15 puts "Applying standard environment textures"
  16 set max_textures 8
  17 for {set i 0} {$i < $max_textures} {incr i} {
  18   vtextureenv on $i
  19   vdump $imagedir/${casename}_std_texture_${i}.png
  20 }
  21
  22 puts "Varying parameters of the 6th std texture (black stripes on white background)"
  23 puts "Trying modulate flag"
  24 vtextureenv on 6 clamp modulate trilinear 1 1 0 0 0
  25 vdump $imagedir/${casename}_modulate.png
  26
  27 puts "Trying nearest texture filtering mode"
  28 vtextureenv on 6 clamp decal nearest 1 1 0 0 0
  29 vdump $imagedir/${casename}_nearest.png
  30
  31 puts "Trying scaling of s and t texture coordinates by 5 (texture repeat on)"
  32 vtextureenv on 6 repeat decal trilinear 5 5 0 0 0
  33 vdump $imagedir/${casename}_scaled.png
  34
  35 puts "Trying translation of s and t texture coordinates by 0.5 (texture repeat on)"
  36 vtextureenv on 6 repeat decal trilinear 1 1 0.5 0.5 0
  37 vdump $imagedir/${casename}_translated.png
  38
  39 puts "Trying rotation of texture coordinates by 90 degrees around the texture center (texture repeat on)"
  40 vtextureenv on 6 repeat decal trilinear 1 1 0 0 90
  41 vdump $imagedir/${casename}_rotated.png
  42