From 35dc8aa24f7062a22e088d62e7ee8a47ec781f97 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 29 Nov 2014 12:37:41 -0500
Subject: render: color: Add transparency.

* sly/render/color.scm (transparency): New procedure.
---
 sly/render/color.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/sly/render/color.scm b/sly/render/color.scm
index 6497339..80c7740 100644
--- a/sly/render/color.scm
+++ b/sly/render/color.scm
@@ -31,7 +31,7 @@
             make-color
             color?
             color-r color-g color-b color-a
-            rgba rgb
+            rgba rgb transparency
             color* color+ color- color-inverse color-lerp
             white black red green blue yellow magenta cyan transparent
             tango-light-butter tango-butter tango-dark-butter
@@ -86,6 +86,11 @@ For example: #xffffff will return a color with RGBA values 1, 1, 1,
                (color-component color-code 0)
                1))
 
+(define (transparency alpha)
+  "Create a new color that is white with a transparency value of
+ALPHA.  ALPHA is clamped to the range [0, 1]."
+  (make-color 1 1 1 alpha))
+
 (define color*
   (match-lambda*
    ((($ <color> r1 g1 b1 a1) ($ <color> r2 g2 b2 a2))
-- 
cgit v1.2.3