0029768: Visualization, TKOpenGl - structure is entirely clipped by suppressed clipping
[occt.git] / tests / bugs / vis / bug23747_2
1 puts "============"
2 puts "CR23747"
3 puts "Checking environment mapping in general"
4 puts "============"
5 puts ""
6
7 # enable FFP until bug-fix for GLSL
8 vcaps -ffp 1
9
10 vinit
11 vclear
12 vaxo
13 psphere b 20
14 vdisplay b
15 vsetdispmode b 1
16 vfit
17
18 puts "Applying standard environment textures"
19 set max_textures 8
20 for {set i 0} {$i < $max_textures} {incr i} {
21   vtextureenv on $i
22   vdump $imagedir/${casename}_std_texture_${i}.png  
23 }
24
25 puts "Varying parameters of the 6th std texture (black stripes on white background)"
26 puts "Trying modulate flag"
27 vtextureenv on 6 clamp modulate trilinear 1 1 0 0 0
28 vdump $imagedir/${casename}_modulate.png
29
30 puts "Trying nearest texture filtering mode"
31 vtextureenv on 6 clamp decal nearest 1 1 0 0 0
32 vdump $imagedir/${casename}_nearest.png
33
34 puts "Trying scaling of s and t texture coordinates by 5 (texture repeat on)"
35 vtextureenv on 6 repeat decal trilinear 5 5 0 0 0
36 vdump $imagedir/${casename}_scaled.png
37
38 puts "Trying translation of s and t texture coordinates by 0.5 (texture repeat on)"
39 vtextureenv on 6 repeat decal trilinear 1 1 0.5 0.5 0
40 vdump $imagedir/${casename}_translated.png
41
42 puts "Trying rotation of texture coordinates by 90 degrees around the texture center (texture repeat on)"
43 vtextureenv on 6 repeat decal trilinear 1 1 0 0 90
44 vdump $imagedir/${casename}_rotated.png
45