render: font: Export a default-font procedure.
authorDavid Thompson <dthompson2@worcester.edu>
Sat, 15 Dec 2018 01:19:55 +0000 (20:19 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Sat, 15 Dec 2018 01:19:55 +0000 (20:19 -0500)
* chickadee/render/font.scm (default-font): Change from variable to
procedure.

chickadee/render/font.scm

index 6136849..55b282c 100644 (file)
@@ -46,6 +46,7 @@
             font-line-width
             font-bold?
             font-italic?
             font-line-width
             font-bold?
             font-italic?
+            default-font
             draw-text*
             draw-text))
 
             draw-text*
             draw-text))
 
@@ -335,15 +336,16 @@ extension must be either .xml or .fnt."
 (define %null-vec2 (vec2 0.0 0.0))
 
 (define default-font
 (define %null-vec2 (vec2 0.0 0.0))
 
 (define default-font
-  (delay
-    (load-font (scope-datadir "fonts/good-neighbors.fnt"))))
+  (let ((font (delay (load-font (scope-datadir "fonts/good-neighbors.fnt")))))
+    (lambda ()
+      (force font))))
 
 (define draw-text
   (let ((matrix (make-null-matrix4)))
     (lambda* (text
               position
               #:key
 
 (define draw-text
   (let ((matrix (make-null-matrix4)))
     (lambda* (text
               position
               #:key
-              (font (force default-font))
+              (font (default-font))
               (origin %null-vec2)
               (rotation 0)
               (scale %default-scale)
               (origin %null-vec2)
               (rotation 0)
               (scale %default-scale)