>LCHab ( color -- LCHab )

Vocabulary

colors.lch

Inputs

color

an object

Outputs

LCHab

an object

Definition

IN: colors.lch

GENERIC: >LCHab ( color -- LCHab )

Methods

USING: colors.lch ;

M: LCHab >LCHab ; inline


USING: accessors colors.lab colors.lch kernel locals.backend
math math.functions math.libm ;

M: laba >LCHab
    [
        [ l>> ] [ a>> ] [ b>> ] tri 3 load-locals
        0 get-local -1 get-local fatan2 rad>deg
        [ dup 360 > ] [ 360 - ] while
        [ dup 0 < ] [ 360 + ] while load-local
        -3 get-local -2 get-local sq -1 get-local sq +
        sqrt 0 get-local 4 drop-locals
    ] [ alpha>> ] bi <LCHab> ;


USING: colors.lab colors.lch kernel ;

M: object >LCHab >laba >LCHab ;