From 688af31061f35e6f6085f5dacf59eb05dab851f6 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Sat, 17 Aug 2013 23:52:51 -0400
Subject: Use color module in font  module.

---
 2d/font.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to '2d')

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)))
-- 
cgit v1.2.3