54a16ee4 |
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 | set only_screen 1 |