2 puts "Texture 2D transformation"
5 set aTexture [locate_data_file bug26122_texture_trsf_ref.png]
6 pload MODELING VISUALIZATION
11 vinit View1 w=512 h=512
18 vtexture b_6 $aTexture -modulate off
19 vdump $::imagedir/${::casename}_identity_ffp.png
21 vdump $::imagedir/${::casename}_identity_glsl.png
24 vtexture b_6 $aTexture -origin 0.0 0.0 -scale 1.25 0.5
25 vdump $::imagedir/${::casename}_scale_ffp.png
27 vdump $::imagedir/${::casename}_scale_glsl.png
30 vtexture b_6 $aTexture -origin 0.25 -0.25 -scale 1.0 1.0
31 vdump $::imagedir/${::casename}_translate_ffp.png
33 vdump $::imagedir/${::casename}_translate_glsl.png
36 vtexture b_6 $aTexture -origin 0.25 -0.25 -scale 1.1 0.8
37 vdump $::imagedir/${::casename}_ffp.png
39 vdump $::imagedir/${::casename}_glsl.png