5 #############################################################################################
6 # Visualization, AIS_InteractiveContext - properly apply selection filters at Neutral point
7 #############################################################################################
17 set color_1 [vreadpixel 87 25]
21 set color_2 [vreadpixel 87 25]
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"
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"
36 checkview -screenshot -3d -path ${imagedir}/${test_image}.png