0032121: Draw Harness, ViewerTest - implement -reset option for vlight command
[occt.git] / tests / opengl / data / textures / bug24725
1 puts "============"
2 puts "CR24725: Test texture color modulation for AIS_TexturedShape"
3 puts "============"
4 puts ""
5
6 pload MODELING VISUALIZATION
7 set aV "Driver1/Viewer1/View1"
8 vinit name=$aV l=32 t=32 w=400 h=400
9 vactivate $aV
10 vclear
11
12 box b 1 2 3
13 vdisplay b
14 vsetdispmode 1
15 vtexture b 0
16 vlight -clear
17 vlight amblight -type AMBIENT -color WHITE
18 vfit
19
20 vtexture b -modulate off
21 checkcolor 142 352 1 1 1
22 if { $stat != 1 } { puts "Error : color of non-modulated texture is incorrect" }
23
24 vdump $imagedir/${casename}_1.png
25
26 vtexture b -modulate on
27 checkcolor 142 352 0.329 0.224 0.027
28 if { $stat != 1 } { puts "Error : color of modulated texture is incorrect" }
29
30 vdump $imagedir/${casename}_2.png