complimentary-color ( color -- color' )

Vocabulary

colors.hsv

Inputs

color

an object

Outputs

color'

an object

Definition

USING: accessors combinators math ;

IN: colors.hsv

: complimentary-color ( color -- color' )
    >hsva {
        [ hue>> 180 + 360 mod ]
        [ saturation>> ]
        [ value>> ]
        [ alpha>> ]
    } cleave <hsva> ;