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

colors: use old style methods

db4
Eduardo Cavazos 2008-07-28 22:04:18 -05:00
parent 1c61b7734c
commit 463b3ff87d
1 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
extra/colors/colors.factor
View File

@ -1,8 +1,7 @@
! Copyright (C) 2003, 2007, 2008 Slava Pestov. ! Copyright (C) 2003, 2007, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel combinators sequences arrays USING: kernel combinators sequences arrays classes.tuple accessors colors.hsv ;
classes.tuple multi-methods accessors colors.hsv ;
IN: colors IN: colors
@ -20,23 +19,19 @@ TUPLE: gray < color gray alpha ;
GENERIC: >rgba ( object -- rgba ) GENERIC: >rgba ( object -- rgba )
METHOD: >rgba { rgba } ; M: rgba >rgba ( rgba -- rgba ) ;
METHOD: >rgba { hsva } M: hsva >rgba ( hsva -- rgba )
{ [ hue>> ] [ saturation>> ] [ value>> ] [ alpha>> ] } cleave 4array { [ hue>> ] [ saturation>> ] [ value>> ] [ alpha>> ] } cleave 4array
[ hsv>rgb ] [ peek ] bi suffix first4 rgba boa ; [ hsv>rgb ] [ peek ] bi suffix first4 rgba boa ;
METHOD: >rgba { gray } [ gray>> dup dup ] [ alpha>> ] bi rgba boa ; M: gray >rgba ( gray -- rgba ) [ gray>> dup dup ] [ alpha>> ] bi rgba boa ;
METHOD: >rgba { array } first4 rgba boa ; M: array >rgba ( array -- rgba ) first4 rgba boa ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! M: color ( color -- red ) red>> >rgba red>> ;
M: color ( color -- green ) green>> >rgba green>> ;
USE: syntax M: color ( color -- blue ) blue>> >rgba blue>> ;
M: color red>> >rgba red>> ;
M: color green>> >rgba green>> ;
M: color blue>> >rgba blue>> ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!