diff options
Diffstat (limited to 'sly/render/font.scm')
| -rw-r--r-- | sly/render/font.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/sly/render/font.scm b/sly/render/font.scm index dff74a2..dace505 100644 --- a/sly/render/font.scm +++ b/sly/render/font.scm @@ -33,7 +33,6 @@ #:use-module (sly wrappers gl) #:use-module (sly render color) #:use-module (sly config) - #:use-module (sly render mesh) #:use-module (sly render sprite) #:use-module (sly render texture) #:export (enable-fonts @@ -41,7 +40,7 @@ load-default-font font? font-point-size - make-label label)) + make-label)) ;;; ;;; Font @@ -95,9 +94,8 @@ HEIGHT, 32 bit color bytevector." ;; Need to flip pixels so that origin is on the bottom-left. (bytevector->texture pixels width height 'linear 'linear))) -(define* (make-label font text #:optional #:key - (anchor 'top-left)) +(define* (make-label font text #:key (anchor 'top-left)) + "Create a sprite that displays TEXT rendered using FONT. ANCHOR +defines the sprite's origin, which is 'top-left' by default." (let ((texture (render-text font text))) (make-sprite texture #:anchor anchor))) - -(define label make-label) |