0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug25544_graytexture
1 puts "============"
2 puts "0025544: Visualization, TKOpenGl - support grayscale textures"
3 puts "============"
4 puts ""
5
6 vclear
7 vinit View1
8
9 box b 1 2 3
10 vaxo
11 vdisplay -dispMode 1 b
12 vtexture b 1 -modulate on
13 vfit
14
15 set aColorMod [vreadpixel 290 180 rgb name]
16 vdump $imagedir/${casename}_modulated.png
17
18 vtexture b 1 -modulate off
19 set aColorDec [vreadpixel 290 180 rgb name]
20 vdump $imagedir/${casename}_decal.png
21
22 if {"$aColorMod" != "GOLDENROD4"} { puts "Error: wrong color with modulation ON" }
23 if {"$aColorDec" != "GRAY91"}     { puts "Error: wrong color with modulation OFF" }