puts "============"
puts "OCC24181 Render text as BRep (check alphabet)"
puts "============"
puts ""
pload MODELING
pload VISUALIZATION

vfont add [locate_data_file DejaVuSans.ttf] SansFont

set THE_FONT_NAME SansFont
set THE_FONT_SIZE 24
set THE_TEXT {
`1234567890-=
~!@#$%^&*()_+
qwertyuiop[]\\
QWERTYUIOP{}|
asdfghjkl;'
ASDFGHJKL:"
zxcvbnm,./
ZXCVBNM<>?
}

text2brep aBTextN $THE_TEXT -font $THE_FONT_NAME -height $THE_FONT_SIZE -aspect regular -composite off
text2brep aBTextC $THE_TEXT -font $THE_FONT_NAME -height $THE_FONT_SIZE -aspect regular -composite on
checkshape aBTextN
checkshape aBTextC

ttranslate aBTextC 220 0 0
vsetdispmode 1
vtop
vdisplay aBTextN
vdisplay aBTextC

vfit

vglinfo
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
