| 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 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
| 10 | |
| 11 | vinit |
| 12 | vclear |
| 13 | vaxo |
| 14 | 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 SansFont |
| 15 | |
| 16 | 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 SansFont |
| 17 | |
| 18 | set x 346 |
| 19 | set y 190 |
| 20 | |
| 21 | set R 0 |
| 22 | set G 0.9843137264251709 |
| 23 | set B 0 |
| 24 | |
| 25 | if {"[vreadpixel $x $y rgb]" == "$R $G $B" } { |
| 26 | puts "Error : color is bad" |
| 27 | } else { |
| 28 | puts "OK : color is good" |
| 29 | } |
| 30 | |
| 31 | set only_screen 1 |