>xyYa ( color -- xyYa )
CIE 1931 xyY colors

Prev:

<xyYa> ( x y Y alpha -- xyYa )

Vocabulary
colors.xyy

Inputs

color

an object

Outputs

xyYa

an object

Definition

IN: colors.xyy

GENERIC: >xyYa ( color -- xyYa )

Methods

USING: colors.xyy colors.xyz kernel ;

M: object >xyYa >xyza >xyYa ;


USING: colors.xyy ;

M: xyYa >xyYa ; inline


USING: accessors colors.xyy colors.xyz kernel locals.backend
math ;

M: xyza >xyYa
    [
        [ x>> ] [ y>> ] [ z>> ] tri 3 load-locals
        -2 get-local -1 get-local 0 get-local + + -2 get-local
        [ load-local 0 get-local swap / 1 drop-locals ] curry
        -1 get-local
        [ load-local 0 get-local swap / 1 drop-locals ] curry bi
        -1 get-local 3 drop-locals
    ] [ alpha>> ] bi <xyYa> ;