t ( hsv -- t )


Vocabulary
colors.hsv.private

Inputs
hsvan object


Outputs
tan object


Definition
USING: accessors kernel math ;

IN: colors.hsv.private

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