diff options
| -rw-r--r-- | sly/render/font.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/sly/render/font.scm b/sly/render/font.scm index 1312168..32f425c 100644 --- a/sly/render/font.scm +++ b/sly/render/font.scm @@ -47,15 +47,16 @@ ;;; Font ;;; -(define (enable-fonts) - (sdl2:ttf-init)) - (define-record-type <font> (make-font ttf point-size) font? (ttf font-ttf) (point-size font-point-size)) +(define (enable-fonts) + "Enable font rendering." + (sdl2:ttf-init)) + (define (load-font filename point-size) "Load the TTF font in FILENAME with the given POINT-SIZE." (if (file-exists? filename) |