3bea4c16 |
1 | puts "================" |
2 | puts "OCC23012" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################################### |
6 | # Detection gives incorrect results |
7 | ###################################################################################### |
8 | |
9 | set BugNumber OCC23012 |
10 | |
11 | catch {pload XDE} |
12 | |
13 | set x1 210 |
14 | set y1 184 |
15 | |
16 | set x2 205 |
17 | set y2 180 |
18 | |
19 | stepread [locate_data_file OCC23012-Sample_3.stp] a * |
20 | stepread [locate_data_file OCC23012-Sample_9.stp] b * |
21 | vdisplay a_1 b_1 |
22 | vsetdispmode a_1 1 |
23 | vsetdispmode b_1 1 |
24 | vselprecision |
25 | vselprecision 1 0.1 |
26 | |
27 | set ColorBefore [QAGetPixelColor ${x1} ${y1}] |
28 | set R1 [lindex ${ColorBefore} 2] |
29 | set G1 [lindex ${ColorBefore} 5] |
30 | set B1 [lindex ${ColorBefore} 8] |
31 | |
32 | vmoveto ${x2} ${y2} |
33 | |
34 | set ColorAfter [QAGetPixelColor ${x1} ${y1}] |
35 | set R2 [lindex ${ColorAfter} 2] |
36 | set G2 [lindex ${ColorAfter} 5] |
37 | set B2 [lindex ${ColorAfter} 8] |
38 | |
39 | set check_color 0 |
40 | if { ${R1} == ${R2} && ${G1} == ${G2} && ${B1} == ${B2} } { |
41 | set check_color 0 |
42 | } else { |
43 | set check_color 1 |
44 | } |
45 | |
46 | # Resume |
47 | puts "" |
48 | if { ${check_color} != 0} { |
49 | puts "Faulty ${BugNumber}" |
50 | } else { |
51 | puts "OK ${BugNumber}" |
52 | } |
53 | vfit |
54 | set only_screen 1 |