tests/bugs/vis/bug23484_2

   1 puts "============"
   2 puts "OCC23484"
   3 puts "============"
   4 puts ""
   5 ############################################################################################
   6 puts "Visualization, TKOpenGl - primitive arrays to become the only way to render geometry"
   7 puts "Tests clipping plane rendering with primitive arrays"
   8 ############################################################################################
   9
  10 set anImage $imagedir/${casename}_1.png
  11
  12 vinit View1
  13 vclear
  14 vaxo
  15 vsetdispmode 1
  16 box b 1 1 1
  17 vdisplay b
  18 vfit
  19
  20 vclipplane create pln
  21 vclipplane set pln view Driver1/Viewer1/View1
  22 vclipplane change pln equation 0 1 0 -0.5
  23 vclipplane change pln capping on
  24
  25 vdump $anImage
  26
  27 vclear