colors.gray: adding rgba>gray.

2012-10-21 12:02:44 -07:00 · 2012-10-21 12:02:44 -07:00 · df3956a679
parent 4d75add92e
commit df3956a679
1 changed files with 6 additions and 1 deletions
--- 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>> ;
+M: gray blue>> gray>> ;
+
+: rgba>gray ( rgba -- gray )
+    >rgba-components [
+        [ 0.3 * ] [ 0.59 * ] [ 0.11 * ] tri* + +
+    ] dip <gray> ;