2 puts "CR24725: Test texture color modulation for AIS_TexturedShape"
6 pload MODELING VISUALIZATION
7 set aV "Driver1/Viewer1/View1"
8 vinit name=$aV l=32 t=32 w=400 h=400
17 vlight amblight -type AMBIENT -color WHITE
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" }
24 vdump $imagedir/${casename}_1.png
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" }
30 vdump $imagedir/${casename}_2.png