USING: accessors images kernel locals math sequences ;

IN: images.private

:: pixel@ ( x y w image -- start end bitmap )
image dim>> first y * x + :> start start w
[ image bytes-per-pixel * ] bi@
:> ( start' w' ) start' start' w' + image bitmap>> ; inline