5 ####################################################################################
6 # TKOpenGl - globally defined clipping planes blink when operating with view
7 # Test checks that state of clippings always corresponds to a state of viewed
9 ####################################################################################
18 vmoveto $check_x $check_y
19 vclipplane create pln1
20 vclipplane set pln1 view Driver1/Viewer1/View1
21 vclipplane change pln1 equation 0 1 0 0
25 if { "[vreadpixel $check_x $check_y rgb name]" != "CYAN1" } {
26 puts "Error : Viewer clipping is broken."
29 vdump ${imagedir}/${casename}.png