diff options
| -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 |