3 puts "Checking environment mapping in general"
15 puts "Applying standard environment textures"
17 for {set i 0} {$i < $max_textures} {incr i} {
19 vdump $imagedir/${casename}_std_texture_${i}.png
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
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
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
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
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