p ( hsv -- p )


Vocabulary
colors.hsv.private

Inputs
hsvan object


Outputs
pan object


Definition
USING: accessors kernel math ;

IN: colors.hsv.private

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