0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[occt.git] / tests / v3d / glsl / texture_trsf2
CommitLineData
a6dee93d 1puts "========"
2puts "Texture 2D transformation (presentation trsf)"
3puts "========"
4
5set aTexture [locate_data_file bug26122_texture_trsf_ref.png]
6pload MODELING VISUALIZATION
7box b 1 1 1
8explode b F
ba00aab7 9
10for { set aPass 0 } { $aPass < 2 } { incr aPass } {
11 vclear
12 vclose ALL
13
14 set aSuffix ""
15 if { $aPass == 0 } {
16 set aSuffix "ffp"
17 vcaps -ffp 1
18 } else {
19 set aSuffix "glsl"
20 vcaps -ffp 0
21 }
22
23 vinit View1 w=512 h=512
24 vtop
25 vdisplay -dispMode 1 b_6
26 vfit
27
28 vtexture b_6 $aTexture -modulate off
29 vdump $::imagedir/${::casename}_identity_${aSuffix}.png
30
faff3767 31 vtexture b_6 $aTexture -trsfTranslate 0.0 0.0 -trsfScale 0.8 2.0 -trsfAngle 0
ba00aab7 32 vdump $::imagedir/${::casename}_scale_${aSuffix}.png
33
faff3767 34 vtexture b_6 $aTexture -trsfTranslate 0.25 -0.25 -trsfScale 1.0 1.0 -trsfAngle 0
ba00aab7 35 vdump $::imagedir/${::casename}_translate_${aSuffix}.png
36
faff3767 37 vtexture b_6 $aTexture -trsfTranslate 0.0 0.1 -trsfScale 1 1.1 -trsfAngle 30
38 vdump $::imagedir/${::casename}_rotate_${aSuffix}.png
39
40 vtexture b_6 $aTexture -trsfTranslate 0.25 -0.25 -trsfScale 1.1 0.8 -trsfAngle 0
ba00aab7 41 vdump $::imagedir/${::casename}_${aSuffix}.png
42}