(no commit message)

[gacela.git] / src / gacela_ttf.scm

diff --git a/src/gacela_ttf.scm b/src/gacela_ttf.scm
index 228153270318e55b7996f7f1003003bcd9aae03c..a9e64c0eeac3e3790f45a8f099823a93591bb1ad 100644 (file)
--- 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))