store-rgb ( index rgb b g r -- index )


Vocabulary
benchmark.yuv-to-rgb

Inputs
indexan object
rgban object
ban object
gan object
ran object


Outputs
indexan object


Definition
USING: kernel math sequences.private ;

IN: benchmark.yuv-to-rgb

: store-rgb ( index rgb b g r -- index )
[ pick 0 + pick set-nth-unsafe ]
[ pick 1 + pick set-nth-unsafe ]
[ pick 2 + pick set-nth-unsafe ] tri* drop ; inline