summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-02-15 15:24:07 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-02-15 15:24:07 -0500
commit012f2b0acd0157f8e87397bce7a71d0dd5e00234 (patch)
tree190d9f3457cba3eef19aac0ea40332c3c70f11d5 /2d
parent9353774be73dc48363a28c94ba5d21594af15d6e (diff)
Don't load default font upon module import.
* 2d/font.scm (default-font): Delete variable. (load-default-font): New procedure.
Diffstat (limited to '2d')
-rw-r--r--2d/font.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/2d/font.scm b/2d/font.scm
index 1e5f6ef..7da74a3 100644
--- a/2d/font.scm
+++ b/2d/font.scm
@@ -64,8 +64,8 @@ upper-left corner rather than the bottom-left."
text
(ftgl-render-mode all))))
-(define default-font
- (load-font (string-append %pkgdatadir "/fonts/DejaVuSans.ttf") 12))
+(define* (load-default-font #:optional (size 12))
+ (load-font (string-append %pkgdatadir "/fonts/DejaVuSans.ttf") size))
(export <font>
make-font
@@ -73,7 +73,7 @@ upper-left corner rather than the bottom-left."
font-size
load-font
draw-font
- default-font)
+ load-default-font)
;;;
;;; Textbox