809eca9d |
1 | pload QAcommands |
2 | |
3 | puts "================" |
4 | puts "OCC22039" |
5 | puts "================" |
6 | puts "" |
7 | ####################################################################################### |
8 | # Incorrect interactive detection (highlights) of elements |
9 | ###################################################################################### |
10 | |
11 | set BugNumber OCC22039 |
12 | |
13 | restore [locate_data_file OCC12121-CrankArm.brep] result |
14 | |
15 | vinit |
16 | vsetdispmode 1 |
17 | vdisplay result |
18 | vfit |
19 | |
9dba391d |
20 | ###set x1 101 |
21 | set x1 102 |
809eca9d |
22 | set y1 199 |
23 | set Color [QAGetPixelColor ${x1} ${y1}] |
24 | |
25 | vmoveto ${x1} ${y1} |
26 | set ColorMove [QAGetPixelColor ${x1} ${y1}] |
27 | |
28 | vselect ${x1} ${y1} |
29 | set ColorSelect [QAGetPixelColor ${x1} ${y1}] |
30 | |
31 | set Color_Status 0 |
32 | if { ${Color} != ${ColorMove} && ${Color} != ${ColorSelect} && ${ColorMove} != ${ColorSelect} } { |
33 | set Color_Status 0 |
34 | } else { |
35 | set Color_Status 1 |
36 | } |
37 | |
38 | # Resume |
39 | puts "" |
40 | if { ${Color_Status} != 0} { |
41 | puts "Faulty ${BugNumber}" |
42 | } else { |
43 | puts "OK ${BugNumber}" |
44 | } |
45 | |
46 | set square 24859.6 |
47 | set only_screen 1 |