0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug25544_graytexture
index 1f07e8f..e7c3574 100644 (file)
@@ -3,13 +3,12 @@ puts "0025544: Visualization, TKOpenGl - support grayscale textures"
 puts "============"
 puts ""
 
-vinit View1
 vclear
+vinit View1
 
 box b 1 2 3
 vaxo
-vsetdispmode 1
-vdisplay b
+vdisplay -dispMode 1 b
 vtexture b 1 -modulate on
 vfit
 
@@ -20,9 +19,5 @@ 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"
-}
+if {"$aColorMod" != "GOLDENROD4"} { puts "Error: wrong color with modulation ON" }
+if {"$aColorDec" != "GRAY91"}     { puts "Error: wrong color with modulation OFF" }