0028811: Visualization - merge texturing support into AIS_Shape class and get rid...
[occt.git] / tests / v3d / glsl / texture_trsf2
1 puts "========"
2 puts "Texture 2D transformation (presentation trsf)"
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 -trsfTranslate 0.0 0.0 -trsfScale 0.8 2.0
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 -trsfTranslate 0.25 -0.25 -trsfScale 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 -trsfTranslate 0.25 -0.25 -trsfScale 1.1 0.8
37 vdump $::imagedir/${::casename}_ffp.png
38 vcaps -ffp 0
39 vdump $::imagedir/${::casename}_glsl.png