6788f423 |
1 | puts "============" |
2 | puts "OCC24555" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Visualization - the same text is rendered with shift at second time |
7 | ####################################################################### |
8 | |
9 | vinit |
10 | vclear |
11 | vaxo |
12 | vdrawtext "This program" 0 0 0 0 255 0 0 0 0 0 50 1 Arial |
13 | |
14 | vdrawtext "This program" 0 0 0 255 0 0 0 0 0 0 50 1 Arial |
15 | |
16 | set x 346 |
17 | set y 190 |
18 | |
19 | set R 0 |
20 | set G 0.9843137264251709 |
21 | set B 0 |
22 | |
23 | decho off |
24 | set catch_status 0 |
25 | if { [catch {QAGetPixelColor $x $y $R $G $B} catch_result] } { |
26 | set catch_status 1 |
27 | } |
28 | decho on |
29 | |
30 | if {${catch_status} == 0} { |
31 | puts "Error : color is bad" |
32 | } else { |
33 | puts "OK : color is good" |
34 | } |
35 | |
36 | set only_screen 1 |