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

diff --git a/src/gacela_ttf.scm b/src/gacela_ttf.scm
index 2281532..a9e64c0 100644
--- a/src/gacela_ttf.scm
+++ b/src/gacela_ttf.scm
@@ -16,7 +16,11 @@
 
 
 (define* (load-font font-file #:key (size 40) (encoding ft_encoding_unicode))
-  (let ((font (ftglCreateTextureFont font-file)))
+  (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))