Clean up colors
parent
d0a3442b30
commit
b09763de2e
|
@ -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 }
|
||||||
|
|
Loading…
Reference in New Issue