2 puts "0025544: Visualization, TKOpenGl - support grayscale textures"
13 vtexture b 1 -modulate on
16 set aColorMod [vreadpixel 290 180 rgb name]
17 vdump $imagedir/${casename}_modulated.png
19 vtexture b 1 -modulate off
20 set aColorDec [vreadpixel 290 180 rgb name]
21 vdump $imagedir/${casename}_decal.png
23 if {"$aColorMod" != "GOLDENROD4"} {
24 puts "Error: wrong color with modulation ON"
26 if {"$aColorDec" != "GRAY80"} {
27 puts "Error: wrong color with modulation OFF"