<random-images-bytes> ( dim -- bytes )

Vocabulary

rosetta-code.image-noise

Inputs

dim

an object

Outputs

bytes

an object

Definition

USING: kernel math sequences ;

IN: rosetta-code.image-noise

: <random-images-bytes> ( dim -- bytes )
    [ 0 0 ] dip product
    [ ?generate-more-bits [ 1 + ] [ bits>pixels ] bi* ] B{ }
    replicate-as 2nip ;