0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug26940
index 20ed679..82399a3 100644 (file)
@@ -4,24 +4,19 @@ puts "Tests capping plane rendering with connected structures"
 puts "============"
 puts ""
 
-vinit View1
 vclear
+vinit View1
 vaxo
 vsetdispmode 1
 box b 1 1 1
 vdisplay b
 vfit
 
-vclipplane create pln
-vclipplane set pln view Driver1/Viewer1/View1
-vclipplane change pln equation 0 1 0 -0.5
-vclipplane change pln capping on
+vclipplane pln -set Driver1/Viewer1/View1 -equation 0 1 0 -0.5 -capping on
 
 vdump $imagedir/${casename}_normal.png
 set aColorNorm [vreadpixel 200 250 rgb name]
-if { "$aColorNorm" != "GRAY13" } {
-  puts "Error: Expected color of capping plane is GRAY13 (normal presentation). Actial is $aColorNorm"
-}
+if { "$aColorNorm" != "GRAY14" } { puts "Error: Expected color of capping plane is GRAY14 (normal presentation). Actial is $aColorNorm" }
 
 vclear
 
@@ -29,6 +24,4 @@ vconnectto bb 0 0 0 b
 vdump $imagedir/${casename}_connected.png
 set aColorConn [vreadpixel 200 250 rgb name]
 
-if { "$aColorConn" != "GRAY13" } {
-  puts "Error: Expected color of capping plane is GRAY13 (connected presentation). Actial is $aColorConn"
-}
+if { "$aColorConn" != "GRAY14" } { puts "Error: Expected color of capping plane is GRAY14 (connected presentation). Actial is $aColorConn" }