hsva
HSV colors

Next:

<hsva> ( hue saturation value alpha -- hsva )

Vocabulary
colors.hsv

Class description
The class of HSV (Hue, Saturation, Value) colors with an alpha channel. The hue slot stores a value in the interval [0,360] and the remaining slots store values in the interval [0,1].

Definition

IN: colors.hsv

TUPLE: hsva
    { hue read-only } { saturation read-only }
    { value read-only } { alpha read-only } ;

Methods

USING: colors.hsv ;

M: hsva >hsva ; inline


USING: accessors colors colors.hsv colors.hsv.private
combinators kernel ;

M: hsva >rgba
    [
        dup Hi {
            { 0 [ [ value>> ] [ t ] [ p ] tri ] }
            { 1 [ [ q ] [ value>> ] [ p ] tri ] }
            { 2 [ [ p ] [ value>> ] [ t ] tri ] }
            { 3 [ [ p ] [ q ] [ value>> ] tri ] }
            { 4 [ [ t ] [ p ] [ value>> ] tri ] }
            { 5 [ [ value>> ] [ p ] [ q ] tri ] }
        } case
    ] [ alpha>> ] bi <rgba> ; inline