q ( hsv -- q )


Vocabulary
colors.hsv.private

Inputs
hsvan object


Outputs
qan object


Definition
USING: accessors kernel math ;

IN: colors.hsv.private

: q ( hsv -- q )
[ [ f ] [ saturation>> ] bi * 1 swap - ] [ value>> ] bi * ;
inline