>oklcha ( color -- oklcha )
OKLCH colors

Prev:

<oklcha> ( l c h alpha -- oklcha )

Vocabulary
colors.oklch

Inputs

color

an object

Outputs

oklcha

an object

Definition

IN: colors.oklch

GENERIC: >oklcha ( color -- oklcha )

Methods

USING: colors.oklab colors.oklch kernel ;

M: object >oklcha >oklaba >oklcha ;


USING: accessors colors.oklab colors.oklch kernel locals.backend
math math.functions math.libm ;

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