d399d3c3 |
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 |