fix horizontal positioning of characters

diff --git a/library/freetype/freetype-gl.factor b/library/freetype/freetype-gl.factor
index 091f34a6dabd3a74d19a42bd04722bb942367a0f..5a8f82462aef6d756b6d8941e6475102fa6a4bcd 100644 (file)
--- a/library/freetype/freetype-gl.factor
+++ b/library/freetype/freetype-gl.factor
@@ -160,8 +160,8 @@ C: font ( handle -- font )
     ] with-locked-block ;
 
 : glyph-texture-loc ( glyph font -- loc )
-    font-ascent swap glyph-hori-bearing-y - ft-floor
-    0 swap 0 3array ;
+    over glyph-hori-bearing-x ft-floor -rot
+    font-ascent swap glyph-hori-bearing-y - ft-floor 0 3array ;
 
 : glyph-texture-size ( glyph -- dim )
     dup glyph-bitmap-width next-power-of-2