0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug25340
1 puts "========"
2 puts "0025340: Visualization, AIS_InteractiveContext - properly apply selection filters at Neutral point"
3 puts "========"
4 puts ""
5
6 pload QAcommands
7
8 vinit View1
9
10 box b 1 2 3
11 vdisplay b
12 vfit
13 vtrihedron t
14 set color_1 [vreadpixel 87 25 -rgb -name]
15
16 OCC25340
17 vselect 87 25
18 set color_2 [vreadpixel 87 25 -rgb -name]
19
20 if {$color_2 != $color_1} {
21   puts "ERROR: OCC25340 is reproduced"
22   puts "       initial color of trihedron is: $color_1"
23   puts "       final color of trihedron is:   $color_2"
24 }
25
26 if {$color_2 != "LIGHTSTEELBLUE4"} {
27   puts "ERROR: OCC25340 is reproduced"
28   puts "       additional investigation is needed"
29   puts "       expected color is: LIGHTSTEELBLUE4"
30   puts "       current color is:  $color_2"
31 }
32
33 vdump ${imagedir}/${test_image}.png