puts "==========="
puts "0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynamic highlighting"
puts "Test local selection"
puts "==========="
puts ""

pload MODELING VISUALIZATION
box b 1 2 3

vclear
vinit View1
vaxo
vdisplay -dispMode 0 -highMode 1 b
vfit
vzoom 0.5
vselmode b 4 1
vselect 150 150
vmoveto 250 250
vsetlocation b 2 1 0
set aColor1 [vreadpixel 220 200 rgb name]
set aColor2 [vreadpixel 350 220 rgb name]
if { "$aColor1" != "BLACK" || "$aColor2" != "CYAN2" } { puts "Error: dynamic highlighting is not updated" }
if { "[vreadpixel 150 150 rgb name]" != "BLACK" } { puts "Error: sub-shape highlighting is not updated" }

vdump $imagedir/${casename}.png
