diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-02-15 15:24:07 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-02-15 15:24:07 -0500 |
| commit | 012f2b0acd0157f8e87397bce7a71d0dd5e00234 (patch) | |
| tree | 190d9f3457cba3eef19aac0ea40332c3c70f11d5 | |
| parent | 9353774be73dc48363a28c94ba5d21594af15d6e (diff) | |
Don't load default font upon module import.
* 2d/font.scm (default-font): Delete variable.
(load-default-font): New procedure.
| -rw-r--r-- | 2d/font.scm | 6 |
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 |