2 puts "0025340: Visualization, AIS_InteractiveContext - properly apply selection filters at Neutral point"
14 set color_1 [vreadpixel 87 25 -rgb -name]
18 set color_2 [vreadpixel 87 25 -rgb -name]
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"
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"
33 vdump ${imagedir}/${test_image}.png