diff options
Diffstat (limited to '2d')
-rw-r--r-- | 2d/color.scm | 6 | ||||
-rw-r--r-- | 2d/font.scm | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/2d/color.scm b/2d/color.scm index 2e7cba9..e23d493 100644 --- a/2d/color.scm +++ b/2d/color.scm @@ -32,7 +32,7 @@ color-g color-b color-a - apply-color + use-color rgba rgb white @@ -50,13 +50,15 @@ (b color-b) (a color-a)) -(define (apply-color color) +(define (use-color color) + "Sets the current OpenGL color." (gl-color (color-r color) (color-g color) (color-b color) (color-a color))) (define (color-component color-code offset) + "Returns the value of a color channel in the range [0,1]." (let ((mask (ash #xff offset))) (/ (ash (logand mask color-code) (- offset)) diff --git a/2d/font.scm b/2d/font.scm index 182f25b..cb83b1d 100644 --- a/2d/font.scm +++ b/2d/font.scm @@ -98,7 +98,7 @@ upper-left corner rather than the bottom-left." (with-gl-push-matrix (vector2-translate (textbox-position textbox)) (flip-text (textbox-font textbox)) - (apply-color (textbox-color textbox)) + (use-color (textbox-color textbox)) (ftgl-render-layout (textbox-layout textbox) (textbox-text textbox) (ftgl-render-mode all)))) |