1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
puts "============"
puts "0025544: Visualization, TKOpenGl - support grayscale textures"
puts "============"
puts ""
vinit View1
vclear
box b 1 2 3
vaxo
vsetdispmode 1
vdisplay b
vtexture b 1 -modulate on
vfit
set aColorMod [vreadpixel 290 180 rgb name]
vdump $imagedir/${casename}_modulated.png
vtexture b 1 -modulate off
set aColorDec [vreadpixel 290 180 rgb name]
vdump $imagedir/${casename}_decal.png
if {"$aColorMod" != "GOLDENROD4"} {
puts "Error: wrong color with modulation ON"
}
if {"$aColorDec" != "GRAY80"} {
puts "Error: wrong color with modulation OFF"
}
|
