steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

colors: add an opaque? word and a transparent color

db4
Slava Pestov 2009-02-01 20:32:00 -06:00
parent 0835eb374b
commit 93afebdb30
2 changed files with 6 additions and 1 deletions

5
basis/colors/colors.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2003, 2009 Slava Pestov.
! Copyright (C) 2008 Eduardo Cavazos.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors combinators ;
USING: kernel accessors combinators math ;
IN: colors
TUPLE: color ;
@ -21,6 +21,9 @@ M: color blue>> ( color -- blue ) >rgba blue>> ;
: >rgba-components ( object -- r g b a )
>rgba { [ red>> ] [ green>> ] [ blue>> ] [ alpha>> ] } cleave ; inline
: opaque? ( color -- ? ) alpha>> 1 number= ;
CONSTANT: transparent T{ rgba f 0.0 0.0 0.0 0.0 }
CONSTANT: black T{ rgba f 0.0 0.0 0.0 1.0 }
CONSTANT: blue T{ rgba f 0.0 0.0 1.0 1.0 }
CONSTANT: cyan T{ rgba f 0 0.941 0.941 1 }

2
basis/colors/hsv/hsv-tests.factor
View File

@ -24,3 +24,5 @@ USING: accessors kernel colors colors.hsv tools.test math ;
[ 5/6 5/36 5/6 ] [ 5/6 5/6 5/6 hsv>rgb ] unit-test
[ 1/6 0 1/6 ] [ 5/6 1 1/6 hsv>rgb ] unit-test
[ 0.5 ] [ 180 0.1 0.2 0.5 <hsva> alpha>> ] unit-test