puts "============="
puts "0030922: Visualization - OpenGl_Text wrong local transformation if text has not own attach point"
puts "============="

vfont add [locate_data_file DejaVuSans.ttf] SansFont

vinit View1
vtrihedron trihedr

vdrawtext Text "First line\nSecond line" -pos 10 0 0 -color red -plane 1 0 0 0 1 0 -flipping -halign center -valign top -height 50 -font SansFont 
vright
vlocation Text -translate 0 10 150

if {[vreadpixel 106 232 rgb name] == "RED"} { puts "ERROR: the text is not moved" }

vdump $imagedir/${casename}.png