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