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

colors.hsv: simplify by just calling the generic >hsva.

char-rename
John Benediktsson 2017-02-06 10:30:42 -08:00
parent f342fd04d9
commit 1bbaa340b4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/colors/hsv/hsv.factor
View File

@ -70,8 +70,7 @@ M:: rgba >hsva ( rgba -- hsva )
] if ; ] if ;
: complimentary-color ( color -- color' ) : complimentary-color ( color -- color' )
dup hsva? [ >hsva ] unless >hsva {
{
[ hue>> 180 + 360 mod ] [ hue>> 180 + 360 mod ]
[ saturation>> ] [ saturation>> ]
[ value>> ] [ value>> ]