oklaba
OKLAB colors

Next:

<oklaba> ( l a b alpha -- oklaba )

Vocabulary
colors.oklab

Class description
The class of OKLAB colors with an alpha channel.

Definition

IN: colors.oklab

TUPLE: oklaba l a b alpha ;

Methods

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> ;


USING: accessors colors colors.oklab colors.xyz.private kernel
locals.backend math math.functions ;

M: oklaba >rgba
    [
        [ l>> ] [ a>> ] [ b>> ] tri 3 load-locals
        -2 get-local -1 get-local 0.3963377774 * +
        0 get-local 0.2158037573 * + 3 ^ load-local
        -3 get-local -2 get-local 0.1055613458 * -
        -1 get-local 0.0638541728 * - 3 ^ load-local
        -4 get-local -3 get-local 0.0894841775 * -
        -2 get-local 1.291485548 * - 3 ^ load-local
        -2 get-local 4.0767416621 * -1 get-local 3.3077115913 *
        - 0 get-local 0.2309699292 * +
        -2 get-local -1.2684380046 * -1 get-local 2.6097574011 *
        + 0 get-local 0.3413193965 * -
        -2 get-local -0.0041960863 * -1 get-local 0.7034186147 *
        - 0 get-local 1.707614701 * + [ srgb-compand ] tri@
        6 drop-locals
    ] [ alpha>> ] bi <rgba> ;