puts "============"
puts "0026940: Visualization, TKOpenGl - capping plane should be applied to connected structures"
puts "Tests capping plane rendering with connected structures"
puts "============"
puts ""

vclear
vinit View1
vaxo
vsetdispmode 1
box b 1 1 1
vdisplay b
vfit

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" != "GRAY14" } { puts "Error: Expected color of capping plane is GRAY14 (normal presentation). Actial is $aColorNorm" }

vclear

vconnectto bb 0 0 0 b
vdump $imagedir/${casename}_connected.png
set aColorConn [vreadpixel 200 250 rgb name]

if { "$aColorConn" != "GRAY14" } { puts "Error: Expected color of capping plane is GRAY14 (connected presentation). Actial is $aColorConn" }
