tests/bugs/vis/bug27986_1

   1 puts "==========="
   2 puts "OCC27986"
   3 puts "Visualization - AIS_InteractiveContext::SetLocation() does not update dynamic highlighting"
   4 puts "Test global selection"
   5 puts "==========="
   6 puts ""
   7
   8 pload MODELING VISUALIZATION
   9 box b 1 2 3
  10
  11 vclear
  12 vinit View1
  13 vaxo
  14 vdisplay -dispMode 0 -highMode 1 b
  15 vfit
  16 vzoom 0.5
  17 vmoveto 250 250
  18 vsetlocation b 2 1 0
  19 set aColor1 [vreadpixel 220 200 rgb name]
  20 set aColor2 [vreadpixel 350 220 rgb name]
  21 if { "$aColor1" != "BLACK" || "$aColor2" != "DARKTURQUOISE" } { puts "Error: dynamic highlighting is not updated" }
  22
  23 vdump $imagedir/${casename}.png