tests/bugs/vis/bug31794

   1 puts "============"
   2 puts "0031794: Visualization - Highlighting of AIS_Shape works incorrectly when AddChild() used"
   3 puts "============"
   4 puts ""
   5
   6 pload MODELING VISUALIZATION
   7 vinit View1
   8 box b   10 10 10
   9 box p1 -100 -100  0 200 200 0 -preview
  10 box p2  100 -100  0 200 200 0 -preview
  11 vdisplay b -dispMode 1
  12 vdisplay p1 p2 -dispMode 1 -highMode 1
  13 vfit
  14 vselmode b 0 0
  15 verase p1
  16 vchild b -add p1
  17 vchild b -add p2
  18 vselmode b 0 1
  19 vmoveto 100 200
  20 if {[vreadpixel 100 200 -rgb -name] != "BLACK"} { puts "Error" }
  21
  22 vdump ${imagedir}/${casename}.png