diff options
| -rw-r--r-- | 2d/font.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/2d/font.scm b/2d/font.scm index cb83b1d..c33c310 100644 --- a/2d/font.scm +++ b/2d/font.scm @@ -41,14 +41,14 @@ (size font-size)) (define (load-font filename size) - "Loads a font from a file with a given size in points." + "Load a font from FILENAME with the given SIZE in points." (let ((ftgl-font (ftgl-create-texture-font filename))) ;; Hardcoded 72 dpi for now. (ftgl-set-font-face-size ftgl-font size 72) (make-font ftgl-font size))) (define (flip-text font) - "Flips current GL matrix about the x-axis and translates by the + "Flip current GL matrix about the x-axis and translates by the negative font ascender value. This is necessary before rendering text because guile-2d flips the y-axis so that the origin is in the upper-left corner rather than the bottom-left." @@ -88,6 +88,8 @@ upper-left corner rather than the bottom-left." (layout textbox-layout)) (define (make-textbox font text position color alignment line-length) + "Create a textbox that will draw TEXT with the given FONT, at vector +POSITION, with ALIGNMENT, and a maximum LINE-LENGTH." (let ((layout (ftgl-create-layout))) (ftgl-set-layout-font layout (font-ftgl-font font)) ;; (ftgl-set-layout-alignment layout (ftgl-text-alignment alignment)) @@ -95,6 +97,7 @@ upper-left corner rather than the bottom-left." (%make-textbox font text position color alignment line-length layout))) (define (draw-textbox textbox) + "Draw TEXTBOX." (with-gl-push-matrix (vector2-translate (textbox-position textbox)) (flip-text (textbox-font textbox)) |