diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-08-17 23:52:51 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-08-17 23:52:51 -0400 |
| commit | 688af31061f35e6f6085f5dacf59eb05dab851f6 (patch) | |
| tree | b5bc36c828ee7272d1e68326f4007c2a047a67e2 | |
| parent | e5f352a7e47741e06bd96120d1bd1f8c1f83589a (diff) | |
Use color module in font module.
| -rw-r--r-- | 2d/font.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/2d/font.scm b/2d/font.scm index f65e08a..80e90da 100644 --- a/2d/font.scm +++ b/2d/font.scm @@ -26,6 +26,7 @@ #:use-module (srfi srfi-9) #:use-module (system foreign) #:use-module (2d wrappers ftgl) + #:use-module (2d color) #:export (<font> make-font font? @@ -48,7 +49,7 @@ (make-font ftgl-font size))) (define (render-font font text color alignment) - (gl-color 1 1 1) + (apply-color color) (ftgl-render-font (font-ftgl-font font) text (ftgl-render-mode all))) |