0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug25552
index 673506a..f30a755 100644 (file)
@@ -8,8 +8,8 @@ set aSubShapeTriang $imagedir/${casename}_subshape_triangulation.png
 set aShapeTriang $imagedir/${casename}_shape_triangulation.png
 set aDiff $imagedir/${casename}_diff.png
 
-vinit View1
 vclear
+vinit View1
 vaxo
 vsetdispmode 1
 
@@ -34,35 +34,23 @@ verase -inview b1
 vmoveto 250 347
 
 set aColorV2B1 [vreadpixel  50 250 rgb name]
-if { $aColorV2B1 != "BLACK" } {
-  puts "Error: box b1 (red) should NOT be visible in View2!"
-}
+if { $aColorV2B1 != "BLACK" } { puts "Error: box b1 (red) should NOT be visible in View2!" }
 
 set aColorV2B2 [vreadpixel 200 350 rgb name]
-if { $aColorV2B2 != "GREEN3" } {
-  puts "Error: box b2 (green) should be visible in View2!"
-}
+if { $aColorV2B2 != "GREEN2" } { puts "Error: box b2 (green) should be visible in View2!" }
 
 set aColorV2B3 [vreadpixel 250 200 rgb name]
-if { $aColorV2B3 != "DARKGOLDENROD3" } {
-  puts "Error: box b3 (goldenrod) should be visible in View2!"
-}
+if { $aColorV2B3 != "DARKGOLDENROD" } { puts "Error: box b3 (goldenrod) should be visible in View2!" }
 vdump $imagedir/${casename}_v2.png
 
 vactivate View1
 vfit
 set aColorV1B1 [vreadpixel  50 250 rgb name]
-if { $aColorV1B1 != "RED3" } {
-  puts "Error: box b1 (red) should be visible in View1!"
-}
+if { $aColorV1B1 != "RED2" } { puts "Error: box b1 (red) should be visible in View1!" }
 
 set aColorV1B2 [vreadpixel 200 350 rgb name]
-if { $aColorV1B2 != "BLACK" } {
-  puts "Error: box b2 (green) should NOT be visible in View1!"
-}
+if { $aColorV1B2 != "BLACK" } { puts "Error: box b2 (green) should NOT be visible in View1!" }
 
 set aColorV1B3 [vreadpixel 250 200 rgb name]
-if { $aColorV1B3 != "DARKGOLDENROD3" } {
-  puts "Error: box b3 (goldenrod) should be visible in View1!"
-}
+if { $aColorV1B3 != "DARKGOLDENROD" } { puts "Error: box b3 (goldenrod) should be visible in View1!" }
 vdump $imagedir/${casename}_v1.png