xyYa
CIE 1931 xyY colors

Next:

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

Vocabulary
colors.xyy

Class description
The class of CIE 1931 xyY colors with an alpha channel.

Definition

IN: colors.xyy

TUPLE: xyYa x y Y alpha ;

Methods

USING: colors colors.xyy colors.xyz ;

M: xyYa >rgba >xyza >rgba ;


USING: colors.xyy ;

M: xyYa >xyYa ; inline


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

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