compute-u ( yuv uvy yy x -- v )

Vocabulary

benchmark.yuv-to-rgb

Inputs

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

Outputs

v

an object

Definition

USING: accessors alien.accessors kernel math ;

IN: benchmark.yuv-to-rgb

: compute-u ( yuv uvy yy x -- v )
    nip 2/ + >fixnum swap v>> swap alien-unsigned-1 128 - ;
    inline