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 |
29e2c6d2 |
12 | vdrawtext text0 "This program" -pos 0 0 0 -color 0.0 1.0 0.0 -halign left -valign bottom -angle 0 -zoom 0 -height 50 -aspect regular -font Arial |
6788f423 |
13 | |
29e2c6d2 |
14 | vdrawtext text1 "This program" -pos 0 0 0 -color 1.0 0.0 0.0 -halign left -valign bottom -angle 0 -zoom 0 -height 50 -aspect regular -font Arial |
6788f423 |
15 | |
16 | set x 346 |
17 | set y 190 |
18 | |
19 | set R 0 |
20 | set G 0.9843137264251709 |
21 | set B 0 |
22 | |
ccadc126 |
23 | if {"[vreadpixel $x $y rgb]" == "$R $G $B" } { |
6788f423 |
24 | puts "Error : color is bad" |
25 | } else { |
26 | puts "OK : color is good" |
27 | } |
28 | |
29 | set only_screen 1 |