Render string characters only if in correct range.

patzy · Feb 25, 2012 · 37061f2 · 37061f2
1 parent fc92d4a
commit 37061f2
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/font.lisp b/src/font.lisp
@@ -102,8 +102,10 @@ wrapped text."
     (gl:with-pushed-matrix
         (gl:load-matrix basis)
       (if (= (font-base fnt) -1)
-        (loop for c across str do
-             (font-render-glyph fnt (char-code c))
+        (loop for c across str
+             for code = (char-code c)
+             when (< 0 code 255) do
+             (font-render-glyph fnt )
              (basis-translate basis (char-width fnt c) 0 0)
              (gl:load-matrix basis))
         (progn (gl:list-base (font-base fnt))