tests/bugs/vis/bug31702

   1 puts "============"
   2 puts "0031702: Visualization, TKOpenGl - hatching interior is ignored in second View within the Viewer"
   3 puts "============"
   4 puts ""
   5
   6 pload MODELING VISUALIZATION
   7 vclear
   8 vclose *
   9 vinit v1/v1
  10 box b1 100 200 300
  11 vdisplay -dispMode 1 b1
  12 vfit
  13 vaspects b1 -interior hatch
  14 if { [vreadpixel 201 200 -rgb -name] != "BLACK" } { puts "Error: no hatching in first view" }
  15 vdump ${imagedir}/${casename}_v1.png
  16
  17 vinit v2/v1
  18 box b2 100 200 300
  19 vdisplay -dispMode 1 b2
  20 vfit
  21 vaspects b2 -interior hatch
  22 if { [vreadpixel 201 200 -rgb -name] != "BLACK" } { puts "Error: no hatching in second view" }
  23 vdump ${imagedir}/${casename}_v2.png