From df3956a679bf0ed27e3c608ede082eb60a440c2c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 21 Oct 2012 12:02:44 -0700
Subject: [PATCH] colors.gray: adding rgba>gray.

---
 basis/colors/gray/gray.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/basis/colors/gray/gray.factor b/basis/colors/gray/gray.factor
index 5d628dc409..680d087130 100644
--- a/basis/colors/gray/gray.factor
+++ b/basis/colors/gray/gray.factor
@@ -14,4 +14,9 @@ M: gray red>> gray>> ;
 
 M: gray green>> gray>> ;
 
-M: gray blue>> gray>> ;
\ No newline at end of file
+M: gray blue>> gray>> ;
+
+: rgba>gray ( rgba -- gray )
+    >rgba-components [
+        [ 0.3 * ] [ 0.59 * ] [ 0.11 * ] tri* + +
+    ] dip <gray> ;