54a16ee4 |
1 | puts "========" |
ba00aab7 |
2 | puts "0025340: Visualization, AIS_InteractiveContext - properly apply selection filters at Neutral point" |
54a16ee4 |
3 | puts "========" |
4 | puts "" |
54a16ee4 |
5 | |
0d828ac8 |
6 | pload MODELING VISUALIZATION QAcommands |
54a16ee4 |
7 | |
ba00aab7 |
8 | vinit View1 |
54a16ee4 |
9 | |
10 | box b 1 2 3 |
11 | vdisplay b |
12 | vfit |
13 | vtrihedron t |
ba00aab7 |
14 | set color_1 [vreadpixel 87 25 -rgb -name] |
54a16ee4 |
15 | |
16 | OCC25340 |
17 | vselect 87 25 |
ba00aab7 |
18 | set color_2 [vreadpixel 87 25 -rgb -name] |
54a16ee4 |
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 | |
ba00aab7 |
26 | if {$color_2 != "LIGHTSTEELBLUE4"} { |
54a16ee4 |
27 | puts "ERROR: OCC25340 is reproduced" |
28 | puts " additional investigation is needed" |
ba00aab7 |
29 | puts " expected color is: LIGHTSTEELBLUE4" |
30 | puts " current color is: $color_2" |
54a16ee4 |
31 | } |
32 | |
0d828ac8 |
33 | vdump $imagedir/${casename}.png |