0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug27536
index aee57ff..2f35cb1 100644 (file)
@@ -1,30 +1,21 @@
 puts "========"
-puts "OCC27536"
+puts "0027536: Visualization - incorrect behavior of zoom persisted objects"
 puts "========"
 puts ""
-##################################################################
-puts "Visualization - incorrect behavior of zoom persisted objects"
-##################################################################
 
-set anImage1 $imagedir/${casename}_1.png
-set anImage2 $imagedir/${casename}_2.png
-
-vinit
 vclear
+vinit View1
 vaxo
 
 box b -50 -50 -50 100 100 100
 vdisplay b -trsfPers zoom -trsfPersPos 0 0 0 -dispmode 1
-
-vdump $anImage1
+vdump $imagedir/${casename}_1.png
 
 vinit View2 w=200 h=400
 vaxo
 vfit
 
 # Check that box was't resized in small view
-if {[vreadpixel 165 200 name] != "DARKGOLDENROD3 1"} {
-  puts "ERROR: zoom persistent box is resized on view sizes changed!"
-}
+if {[vreadpixel 165 200 -rgb -name] != "DARKGOLDENROD"} { puts "ERROR: zoom persistent box is resized on view sizes changed!" }
 
-vdump $anImage2
+vdump $imagedir/${casename}_2.png