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

2017-02-06 10:30:42 -08:00 · 2017-02-06 10:30:42 -08:00 · 1bbaa340b4
parent f342fd04d9
commit 1bbaa340b4
1 changed files with 1 additions and 2 deletions
--- a/basis/colors/hsv/hsv.factor
+++ b/basis/colors/hsv/hsv.factor
@ -70,8 +70,7 @@ M:: rgba >hsva ( rgba -- hsva )
    ] if ;

 : complimentary-color ( color -- color' )
-    dup hsva? [ >hsva ] unless
-    {
+    >hsva {
        [ hue>> 180 + 360 mod ]
        [ saturation>> ]
        [ value>> ]