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

Clean up colors

db4
Slava Pestov 2009-01-12 22:17:57 -06:00
parent d0a3442b30
commit b09763de2e
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
basis/colors/colors.factor
View File

@ -1,4 +1,4 @@
! Copyright (C) 2003, 2008 Slava Pestov. ! Copyright (C) 2003, 2009 Slava Pestov.
! Copyright (C) 2008 Eduardo Cavazos. ! Copyright (C) 2008 Eduardo Cavazos.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors ; USING: kernel accessors ;
@ -14,21 +14,22 @@ GENERIC: >rgba ( object -- rgba )
M: rgba >rgba ( rgba -- rgba ) ; M: rgba >rgba ( rgba -- rgba ) ;
M: color red>> ( color -- red ) >rgba red>> ; M: color red>> ( color -- red ) >rgba red>> ;
M: color green>> ( color -- green ) >rgba green>> ; M: color green>> ( color -- green ) >rgba green>> ;
M: color blue>> ( color -- blue ) >rgba blue>> ; M: color blue>> ( color -- blue ) >rgba blue>> ;
: black T{ rgba f 0.0 0.0 0.0 1.0 } ; inline CONSTANT: black T{ rgba f 0.0 0.0 0.0 1.0 }
: blue T{ rgba f 0.0 0.0 1.0 1.0 } ; inline CONSTANT: blue T{ rgba f 0.0 0.0 1.0 1.0 }
: cyan T{ rgba f 0 0.941 0.941 1 } ; inline CONSTANT: cyan T{ rgba f 0 0.941 0.941 1 }
: gray T{ rgba f 0.6 0.6 0.6 1.0 } ; inline CONSTANT: gray T{ rgba f 0.6 0.6 0.6 1.0 }
: dark-gray T{ rgba f 0.8 0.8 0.8 1.0 } ; inline CONSTANT: dark-gray T{ rgba f 0.8 0.8 0.8 1.0 }
: green T{ rgba f 0.0 1.0 0.0 1.0 } ; inline CONSTANT: green T{ rgba f 0.0 1.0 0.0 1.0 }
: light-gray T{ rgba f 0.95 0.95 0.95 0.95 } ; inline CONSTANT: light-gray T{ rgba f 0.95 0.95 0.95 0.95 }
: light-purple T{ rgba f 0.8 0.8 1.0 1.0 } ; inline CONSTANT: light-purple T{ rgba f 0.8 0.8 1.0 1.0 }
: magenta T{ rgba f 0.941 0 0.941 1 } ; inline CONSTANT: medium-purple T{ rgba f 0.7 0.7 0.9 1.0 }
: orange T{ rgba f 0.941 0.627 0 1 } ; inline CONSTANT: magenta T{ rgba f 0.941 0 0.941 1 }
: purple T{ rgba f 0.627 0 0.941 1 } ; inline CONSTANT: orange T{ rgba f 0.941 0.627 0 1 }
: red T{ rgba f 1.0 0.0 0.0 1.0 } ; inline CONSTANT: purple T{ rgba f 0.627 0 0.941 1 }
: white T{ rgba f 1.0 1.0 1.0 1.0 } ; inline CONSTANT: red T{ rgba f 1.0 0.0 0.0 1.0 }
: yellow T{ rgba f 1.0 1.0 0.0 1.0 } ; inline CONSTANT: white T{ rgba f 1.0 1.0 1.0 1.0 }
CONSTANT: yellow T{ rgba f 1.0 1.0 0.0 1.0 }