tests/opengl/data/clipping/bug26940

   1 puts "============"
   2 puts "0026940: Visualization, TKOpenGl - capping plane should be applied to connected structures"
   3 puts "Tests capping plane rendering with connected structures"
   4 puts "============"
   5 puts ""
   6
   7 pload MODELING VISUALIZATION
   8 vclear
   9 vinit View1
  10 vaxo
  11 vsetdispmode 1
  12 box b 1 1 1
  13 vdisplay b
  14 vfit
  15
  16 vclipplane pln -set Driver1/Viewer1/View1 -equation 0 1 0 -0.5 -capping on
  17
  18 vdump $imagedir/${casename}_normal.png
  19 set aColorNorm [vreadpixel 200 250 rgb name]
  20 if { "$aColorNorm" != "GRAY14" } { puts "Error: Expected color of capping plane is GRAY14 (normal presentation). Actual is $aColorNorm" }
  21
  22 vclear
  23
  24 vconnectto bb 0 0 0 b
  25 vdump $imagedir/${casename}_connected.png
  26 set aColorConn [vreadpixel 200 250 rgb name]
  27
  28 if { "$aColorConn" != "GRAY14" } { puts "Error: Expected color of capping plane is GRAY14 (connected presentation). Actual is $aColorConn" }