>hsla ( color -- hsla )
HSL colors

Prev:

<hsla> ( hue saturation lightness alpha -- hsla )

Vocabulary
colors.hsl

Inputs

color

an object

Outputs

hsla

an object

Definition

IN: colors.hsl

GENERIC: >hsla ( color -- hsla )

Methods

USING: colors.hsl ;

M: hsla >hsla ; inline


USING: colors colors.hsl kernel ;

M: object >hsla >rgba >hsla ;


USING: colors colors.hsl combinators kernel locals.backend math
math.order ;

M: rgba >hsla
    >rgba-components [
        3 load-locals -2 get-local -1 get-local 0 get-local min
        min load-local
        -3 get-local -2 get-local -1 get-local max max
        load-local -1 get-local 0 get-local + 2 / load-local
        -1 get-local -2 get-local - load-local 0 get-local zero?
        [ 0.0 0.0 ] -2 get-local -6 get-local -5 get-local -4
        get-local 0 get-local -1 get-local -3 get-local [
            7 load-locals -6 get-local dup -5 get-local =
            -4 get-local -3 get-local -2 get-local [
                3 load-locals drop -2 get-local -1 get-local -
                0 get-local / -2 get-local -1 get-local <
                6.0 0.0 ? + 3 drop-locals
            ] curry curry curry
            -4 get-local -3 get-local -5 get-local -2 get-local 
            [
                4 load-locals dup -3 get-local =
                -2 get-local -1 get-local 0 get-local [
                    3 load-locals drop
                    -2 get-local -1 get-local - 0 get-local /
                    2.0 + 3 drop-locals
                ] curry curry curry
                -2 get-local -1 get-local -3 get-local 0
                get-local [
                    4 load-locals dup -3 get-local =
                    -2 get-local -1 get-local 0 get-local [
                        3 load-locals drop
                        -2 get-local -1 get-local -
                        0 get-local / 4.0 + 3 drop-locals
                    ] curry curry curry [ no-case ] if
                    4 drop-locals
                ] curry curry curry curry if 4 drop-locals
            ] curry curry curry curry if 6.0 /
            -1 get-local 0.5 >
            -2 get-local -6 get-local 0 get-local [
                3 load-locals -2 get-local 2 -1 get-local -
                0 get-local - / 3 drop-locals
            ] curry curry curry
            -2 get-local -6 get-local 0 get-local [
                3 load-locals
                -2 get-local -1 get-local 0 get-local + /
                3 drop-locals
            ] curry curry curry if 7 drop-locals
        ] curry curry curry curry curry curry curry if
        -1 get-local 7 drop-locals
    ] dip <hsla> ;