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

colors: Basic colors are now objects. Add the >rgba method on arrays 

(kludge).
db4
Eduardo Cavazos 2008-07-28 16:59:05 -05:00
parent 86d2cd4066
commit 2216486578
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
extra/colors/colors.factor
View File

@ -28,6 +28,8 @@ METHOD: >rgba { hsva }
METHOD: >rgba { grey } [ grey>> dup dup ] [ alpha>> ] bi rgba boa ; METHOD: >rgba { grey } [ grey>> dup dup ] [ alpha>> ] bi rgba boa ;
METHOD: >rgba { array } first4 rgba boa ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
USE: syntax USE: syntax
@ -38,16 +40,16 @@ M: color blue>> >rgba blue>> ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: black { 0.0 0.0 0.0 1.0 } ; : black T{ rgba f 0.0 0.0 0.0 1.0 } ;
: blue { 0.0 0.0 1.0 1.0 } ; : blue T{ rgba f 0.0 0.0 1.0 1.0 } ;
: cyan { 0 0.941 0.941 1 } ; : cyan T{ rgba f 0 0.941 0.941 1 } ;
: gray { 0.6 0.6 0.6 1.0 } ; : gray T{ rgba f 0.6 0.6 0.6 1.0 } ;
: green { 0.0 1.0 0.0 1.0 } ; : green T{ rgba f 0.0 1.0 0.0 1.0 } ;
: light-gray { 0.95 0.95 0.95 0.95 } ; : light-gray T{ rgba f 0.95 0.95 0.95 0.95 } ;
: light-purple { 0.8 0.8 1.0 1.0 } ; : light-purple T{ rgba f 0.8 0.8 1.0 1.0 } ;
: magenta { 0.941 0 0.941 1 } ; : magenta T{ rgba f 0.941 0 0.941 1 } ;
: orange { 0.941 0.627 0 1 } ; : orange T{ rgba f 0.941 0.627 0 1 } ;
: purple { 0.627 0 0.941 1 } ; : purple T{ rgba f 0.627 0 0.941 1 } ;
: red { 1.0 0.0 0.0 1.0 } ; : red T{ rgba f 1.0 0.0 0.0 1.0 } ;
: white { 1.0 1.0 1.0 1.0 } ; : white T{ rgba f 1.0 1.0 1.0 1.0 } ;
: yellow { 1.0 1.0 0.0 1.0 } ; : yellow T{ rgba f 1.0 1.0 0.0 1.0 } ;