tests/bugs/vis/bug24717

   1 puts "============"
   2 puts "OCC24717"
   3 puts "============"
   4 puts ""
   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
   8 # scene.
   9 ####################################################################################
  10
  11 set check_x 204
  12 set check_y 204
  13
  14 vinit View1
  15 vsetdispmode 1
  16 box b 1 1 1
  17 vdisplay b
  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
  22 vfit
  23 vaspects -setwidth 5
  24
  25 if { "[vreadpixel $check_x $check_y rgb name]" != "CYAN1" } {
  26     puts "Error : Viewer clipping is broken."
  27 }
  28
  29 vdump ${imagedir}/${casename}.png