From 776cd81c2fb923d934bab3686d61fbdcc8f8ab7f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Tue, 27 Aug 2013 18:44:46 -0400
Subject: Rename apply-color to use-color.

---
 2d/color.scm | 6 ++++--
 2d/font.scm  | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

(limited to '2d')

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