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> ;