diff options
| author | David Thompson <dthompson2@worcester.edu> | 2016-02-05 13:39:05 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2016-02-05 13:39:05 -0500 |
| commit | 4c29a5528ca1d3559b8062ed111cb1e632c2ae4c (patch) | |
| tree | f7cc6d3e487510230e7845694f8c8c8c383e4b15 | |
| parent | 4b89816e900767541327662a06449a0af546ad52 (diff) | |
render: font: Add docstring for enable-fonts.
* sly/render/font.scm (enable-fonts): Add docstring.
| -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) |