>oklaba ( color -- oklaba )
OKLAB colors
Prev:<oklaba> ( l a b alpha -- oklaba )


Vocabulary
colors.oklab

Inputs
coloran object


Outputs
oklabaan object


Definition
IN: colors.oklab

GENERIC: >oklaba ( color -- oklaba )


Methods
USING: colors colors.oklab kernel ;

M: object >oklaba >rgba >oklaba ;


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

M: oklcha >oklaba
[
[ l>> ] [ c>> ] [ h>> ] tri 3 load-locals
0 get-local deg>rad load-local
-3 get-local -2 get-local 0 get-local cos *
-2 get-local 0 get-local sin * 4 drop-locals
] [ alpha>> ] bi <oklaba> ;


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

M: rgba >oklaba
[
[ red>> ] [ green>> ] [ blue>> ] tri
[ invert-srgb-compand ] tri@ 3 load-locals
-2 get-local 0.4122214708 * -1 get-local 0.5363325363 *
0 get-local 0.0514459929 * + + 1/3 ^ load-local
-3 get-local 0.2119034982 * -2 get-local 0.6806995451 *
-1 get-local 0.1073969566 * + + 1/3 ^ load-local
-4 get-local 0.0883024619 * -3 get-local 0.2817188376 *
-2 get-local 0.6299787005 * + + 1/3 ^ load-local
-2 get-local 0.2104542553 * -1 get-local 0.793617785 * +
0 get-local 0.0040720468 * - -2 get-local 1.9779984951 *
-1 get-local 2.428592205 * - 0 get-local 0.4505937099 *
+ -2 get-local 0.0259040371 *
-1 get-local 0.7827717662 * +
0 get-local 0.808675766 ~4 more~
] [ alpha>> ] bi <oklaba> ;