diff options
-rw-r--r-- | sly/render/font.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/sly/render/font.scm b/sly/render/font.scm index a4140d8..43c3ecd 100644 --- a/sly/render/font.scm +++ b/sly/render/font.scm @@ -42,7 +42,7 @@ load-default-font font? font-point-size - make-label)) + make-label label)) ;;; ;;; Font @@ -84,8 +84,8 @@ HEIGHT, 32 bit color bytevector." (define (render-text font text) "Return a new texture with TEXT rendered using FONT." - ;; An empty string will result in a surface value of #f, in which we - ;; want to abort the texture creation process. + ;; An empty string will result in a surface value of #f, in which + ;; case we want to abort the texture creation process. (and-let* ((surface (SDL:render-utf8 (font-ttf font) text (SDL:make-color 255 255 255) #t)) (width (SDL:surface:w surface)) @@ -101,3 +101,5 @@ HEIGHT, 32 bit color bytevector." (shader (load-default-shader))) (let ((texture (render-text font text))) (make-sprite texture #:shader shader #:anchor anchor))) + +(define label make-label) |