0024725: AIS_TexturedShape - flag switching texture modulation mode does not work
[occt.git] / tests / bugs / vis / bug24725
1 puts "============"
2 puts "CR24725"
3 puts "============"
4 puts ""
5
6 ########################################################
7 #  Test texture color modulation for AIS_TexturedShape
8 ########################################################
9
10 set aV "Driver1/Viewer1/View1"
11 vinit name=$aV l=32 t=32 w=400 h=400
12 vactivate $aV
13 vclear
14
15 box b 1 2 3
16 vdisplay b
17 vsetdispmode 1
18 vtexture b 0
19 vlight clear
20 vlight add ambient color white
21 vfit
22
23 set check_x 142
24 set check_y 352
25
26 vtexture b -modulate off
27
28 checkcolor $check_x $check_y 1 1 1
29
30 if { $stat != 1 } {
31   puts "Error : color of non-modulated texture is incorrect"
32 }
33
34 vdump $imagedir/${casename}_1.png
35
36 vtexture b -modulate on
37
38 checkcolor $check_x $check_y 0.329 0.224 0.027
39
40 if { $stat != 1 } {
41   puts "Error : color of modulated texture is incorrect"
42 }
43
44 vdump $imagedir/${casename}_2.png