yuva
YUV colors

Next:

<yuva> ( y u v alpha -- yuva )

Vocabulary
colors.yuv

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

Definition

IN: colors.yuv

TUPLE: yuva
    { y read-only } { u read-only } { v read-only }
    { alpha read-only } ;

Methods

USING: accessors colors colors.yuv colors.yuv.private
combinators kernel locals.backend math math.order ;

M: yuva >rgba
    { [ y>> ] [ u>> ] [ v>> ] [ alpha>> ] } cleave [
        3 load-locals -2 get-local 1 Wr - Vmax / 0 get-local * +
        -2 get-local Wb 1 Wb - * Umax Wg * / neg -1 get-local *
        Wr 1 Wr - * Vmax Wg * / neg 0 get-local * + +
        -2 get-local 1 Wb - Umax / -1 get-local * +
        [ 0.0 1.0 clamp ] tri@ 3 drop-locals
    ] dip <rgba> ; inline


USING: colors.yuv ;

M: yuva >yuva ; inline