tests/v3d/glsl/texture_trsf

   1 puts "========"
   2 puts "Texture 2D transformation"
   3 puts "========"
   4
   5 set aTexture [locate_data_file bug26122_texture_trsf_ref.png]
   6 pload MODELING VISUALIZATION
   7 box b 1 1 1
   8 explode b F
   9 vclear
  10 vclose ALL
  11 vinit View1 w=512 h=512
  12 vtop
  13 vsetdispmode 1
  14 vdisplay b_6
  15 vfit
  16
  17 vcaps -ffp 1
  18 vtexture b_6 $aTexture -modulate off
  19 vdump $::imagedir/${::casename}_identity_ffp.png
  20 vcaps -ffp 0
  21 vdump $::imagedir/${::casename}_identity_glsl.png
  22
  23 vcaps -ffp 1
  24 vtexture b_6 $aTexture -origin 0.0 0.0 -scale 1.25 0.5
  25 vdump $::imagedir/${::casename}_scale_ffp.png
  26 vcaps -ffp 0
  27 vdump $::imagedir/${::casename}_scale_glsl.png
  28
  29 vcaps -ffp 1
  30 vtexture b_6 $aTexture -origin 0.25 -0.25 -scale 1.0 1.0
  31 vdump $::imagedir/${::casename}_translate_ffp.png
  32 vcaps -ffp 0
  33 vdump $::imagedir/${::casename}_translate_glsl.png
  34
  35 vcaps -ffp 1
  36 vtexture b_6 $aTexture -origin 0.25 -0.25 -scale 1.1 0.8
  37 vdump $::imagedir/${::casename}_ffp.png
  38 vcaps -ffp 0
  39 vdump $::imagedir/${::casename}_glsl.png