>luva ( color -- luva )
CIE 1976 LUV colors

Prev:

<luva> ( l u v alpha -- luva )

Vocabulary
colors.luv

Inputs

color

an object

Outputs

luva

an object

Definition

IN: colors.luv

GENERIC: >luva ( color -- luva )

Methods

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

M: LCHuv >luva
    [
        [ 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 <luva> ;


USING: colors.luv ;

M: luva >luva ; inline


USING: colors colors.luv kernel ;

M: object >luva >rgba >luva ;


USING: colors colors.luv colors.xyz ;

M: rgba >luva >xyza >luva ;


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

M: xyza >luva
    [
        wp_x wp_y wp_z xyz-to-uv 2 load-locals
        [ x>> ] [ y>> ] [ z>> ] tri 3 load-locals
        -2 get-local -1 get-local 0 get-local xyz-to-uv
        2 load-locals -3 get-local wp_y / load-local
        0 get-local xyz_epsilon > 0 get-local [
            load-local 0 get-local 1/3 ^ 116 * 16 -
            1 drop-locals
        ] curry 0 get-local
        [ load-local xyz_kappa 0 get-local * 1 drop-locals ]
        curry if load-local 13 0 get-local *
        -3 get-local -8 get-local - * load-local
        13 -1 get-local * -3 get-local -8 get-local - *
        load-local
        -2 get-local -1 get-local 0 get-local 11 drop-locals
    ] [ alpha>> ] bi <luva> ;