Gacela as Guile modules.

[gacela.git] / src / gacela_ttf.scm

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