3bea4c16 |
1 | puts "================" |
2 | puts "OCC23102" |
3 | puts "================" |
4 | puts "" |
5 | ################################################################################################### |
6 | # Change the algorithm of rendering the 3d viewer background using tiled texture |
7 | ################################################################################################### |
8 | |
9 | set BugNumber OCC23102 |
10 | |
11 | vinit |
12 | vsetbg [locate_data_file OCC23102.bmp] TILED |
13 | |
14 | set x1 58 |
15 | set y1 4 |
16 | set R_bg 0.70196002721786499 |
17 | set G_bg 0.78039199113845825 |
18 | set B_bg 0.86274499999999998 |
19 | |
20 | set Color [QAGetPixelColor ${x1} ${y1}] |
21 | set R [lindex ${Color} 2] |
22 | set G [lindex ${Color} 5] |
23 | set B [lindex ${Color} 8] |
24 | |
25 | #Resume |
26 | puts "" |
27 | if { $R != ${R_bg} && $G != ${G_bg} && $B != ${B_bg} } { |
28 | puts "OK ${BugNumber}" |
29 | } else { |
30 | puts "Faulty ${BugNumber}" |
31 | } |
32 | |
33 | set only_screen 1 |
34 | |