0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug27986_2
1 puts "==========="
2 puts "OCC27986"
3 puts "Visualization - AIS_InteractiveContext::SetLocation() does not update dynamic highlighting"
4 puts "Test local 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 vselmode b 4 1
18 vmoveto 250 250
19 vsetlocation b 2 1 0
20 set aColor1 [vreadpixel 220 200 rgb name]
21 set aColor2 [vreadpixel 350 220 rgb name]
22 if { "$aColor1" != "BLACK" || "$aColor2" != "CYAN2" } { puts "Error: dynamic highlighting is not updated" }
23
24 vdump $imagedir/${casename}.png