9a20e54916c6703257c30cccd544b30a847a74ff
[occt.git] / tests / bugs / vis / bug25340
1 puts "========"
2 puts "OCC25340"
3 puts "========"
4 puts ""
5 #############################################################################################
6 # Visualization, AIS_InteractiveContext - properly apply selection filters at Neutral point
7 #############################################################################################
8
9 pload QAcommands
10
11 vinit
12
13 box b 1 2 3
14 vdisplay b
15 vfit
16 vtrihedron t
17 set color_1 [vreadpixel 87 25]
18
19 OCC25340
20 vselect 87 25
21 set color_2 [vreadpixel 87 25]
22
23 if {$color_2 != $color_1} {
24   puts "ERROR: OCC25340 is reproduced"
25   puts "       initial color of trihedron is: $color_1"
26   puts "       final color of trihedron is:   $color_2"
27 }
28
29 if {$color_2 != "0.43137255311012268 0.48235294222831726 0.54509806632995605 1"} {
30   puts "ERROR: OCC25340 is reproduced"
31   puts "       additional investigation is needed"
32   puts "       expected color is: 0.43137255311012268 0.48235294222831726 0.54509806632995605 1"
33   puts "       current color is:  $_color_2"
34 }
35
36 checkview -screenshot -3d -path ${imagedir}/${test_image}.png