compute-y ( yuv uvy yy x -- y )

Vocabulary

benchmark.yuv-to-rgb

Inputs

yuv	an object
uvy	an object
yy	an object
x	an object

Outputs

y

an object

Definition

USING: accessors alien.accessors kernel math ;

IN: benchmark.yuv-to-rgb

: compute-y ( yuv uvy yy x -- y )
    + >fixnum nip swap y>> swap alien-unsigned-1 16 - ; inline