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 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to '2d/color.scm')

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