mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-25 12:04:07 +03:00
32 lines
849 B
Plaintext
Executable File
32 lines
849 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC24555"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Visualization - the same text is rendered with shift at second time
|
|
#######################################################################
|
|
|
|
vfont add [locate_data_file DejaVuSans.ttf] SansFont
|
|
|
|
vinit
|
|
vclear
|
|
vaxo
|
|
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
|
|
|
|
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
|
|
|
|
set x 346
|
|
set y 190
|
|
|
|
set R 0
|
|
set G 0.9843137264251709
|
|
set B 0
|
|
|
|
if {"[vreadpixel $x $y rgb]" == "$R $G $B" } {
|
|
puts "Error : color is bad"
|
|
} else {
|
|
puts "OK : color is good"
|
|
}
|
|
|
|
set only_screen 1
|