>LCHuv ( color -- LCHuv )

Vocabulary

colors.lch

Inputs

color

an object

Outputs

LCHuv

an object

Definition

IN: colors.lch

GENERIC: >LCHuv ( color -- LCHuv )

Methods

USING: colors.lch ;

M: LCHuv >LCHuv ; inline


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

M: luva >LCHuv
    [
        [ l>> ] [ u>> ] [ v>> ] 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 <LCHuv> ;


USING: colors.lch colors.luv kernel ;

M: object >LCHuv >luva >LCHuv ;