0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / 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" != "CYAN2" } { puts "Error: dynamic highlighting is not updated" }
22
23 vdump $imagedir/${casename}.png