fix horizontal positioning of characters

cvs
Slava Pestov 2005-10-23 21:50:13 +00:00
parent 2bc2f23b45
commit 84fb8eccb7
1 changed files with 2 additions and 2 deletions

View File

@ -160,8 +160,8 @@ C: font ( handle -- font )
] with-locked-block ; ] with-locked-block ;
: glyph-texture-loc ( glyph font -- loc ) : glyph-texture-loc ( glyph font -- loc )
font-ascent swap glyph-hori-bearing-y - ft-floor over glyph-hori-bearing-x ft-floor -rot
0 swap 0 3array ; font-ascent swap glyph-hori-bearing-y - ft-floor 0 3array ;
: glyph-texture-size ( glyph -- dim ) : glyph-texture-size ( glyph -- dim )
dup glyph-bitmap-width next-power-of-2 dup glyph-bitmap-width next-power-of-2