1 ! Copyright (C) 2003, 2009 Slava Pestov.
2 ! Copyright (C) 2008 Eduardo Cavazos.
3 ! See http://factorcode.org/license.txt for BSD license.
4 USING: kernel accessors combinators math ;
9 TUPLE: rgba < color { red read-only } { green read-only } { blue read-only } { alpha read-only } ;
13 GENERIC: >rgba ( color -- rgba )
15 M: rgba >rgba ( rgba -- rgba ) ;
17 M: color red>> ( color -- red ) >rgba red>> ;
18 M: color green>> ( color -- green ) >rgba green>> ;
19 M: color blue>> ( color -- blue ) >rgba blue>> ;
21 : >rgba-components ( object -- r g b a )
22 >rgba { [ red>> ] [ green>> ] [ blue>> ] [ alpha>> ] } cleave ; inline
24 : opaque? ( color -- ? ) alpha>> 1 number= ;
26 CONSTANT: transparent T{ rgba f 0.0 0.0 0.0 0.0 }