X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_ttf.scm;h=a9e64c0eeac3e3790f45a8f099823a93591bb1ad;hb=500b68bdf16918b05f859830cc83d5a429d5b447;hp=2a5caed7b1f3fe70e838ade502ff2c37fc29165b;hpb=4fa4326c57c1022891fd0a7678f139119e997116;p=gacela.git

diff --git a/src/gacela_ttf.scm b/src/gacela_ttf.scm
index 2a5caed..a9e64c0 100644
--- a/src/gacela_ttf.scm
+++ b/src/gacela_ttf.scm
@@ -16,9 +16,13 @@
 
 
 (define* (load-font font-file #:key (size 40) (encoding ft_encoding_unicode))
-  (let ((font (ftglCreateTextureFont font-file)))
-;    (ftglSetFontFaceSize font size 72)
-;    (ftglSetFontCharMap font encoding)
+  (let* ((key (list font-file))
+	 (font (get-resource-from-cache key)))
+    (cond ((not font)
+	   (set! font (ftglCreateTextureFont font-file))
+	   (insert-resource-into-cache key font)))
+    (ftglSetFontFaceSize font size 72)
+    (ftglSetFontCharMap font encoding)
     font))
 
 (define* (render-text text font #:key (size #f))