>cmyka ( color -- cmyka )
CMYK colors
Prev:<cmyka> ( cyan magenta yellow black alpha -- cmyka )


Vocabulary
colors.cmyk

Inputs
coloran object


Outputs
cmykaan object


Definition
IN: colors.cmyk

GENERIC: >cmyka ( color -- cmyka )


Methods
USING: colors colors.cmyk kernel ;

M: object >cmyka >rgba >cmyka ;


USING: colors colors.cmyk kernel math math.order ;

M: rgba >cmyka
>rgba-components [
[ 1 swap - ] tri@ 3dup min min
[ [ - 0.0 1.0 clamp ] curry tri@ ] keep
] dip <cmyka> ;