1 ! Copyright (C) 2008 Eduardo Cavazos.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors colors kernel math ;
6 TUPLE: gray < color { gray read-only } { alpha read-only } ;
10 M: gray >rgba ( gray -- rgba )
11 [ gray>> dup dup ] [ alpha>> ] bi <rgba> ; inline
13 M: gray red>> gray>> ;
15 M: gray green>> gray>> ;
17 M: gray blue>> gray>> ;
19 GENERIC: >gray ( color -- gray )
21 M: object >gray >rgba >gray ;
25 [ 0.3 * ] [ 0.59 * ] [ 0.11 * ] tri* + +