diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-11-30 13:26:16 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-11-30 13:29:46 -0500 |
| commit | ab2db55b0c90af51ec4414e58d313b63f752da22 (patch) | |
| tree | 63993ee13e559eb4b2a771be963e009e122e2e94 | |
| parent | b464597069999b138bcb1f7e1de14c7036ebb40c (diff) | |
render: font: Alias 'make-label' to 'label'.
* sly/render/font.scm (label): New procedure.
| -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) |