<bw-noise-gadget> ( -- gadget )

Vocabulary

rosetta-code.image-noise

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors images.viewer kernel models ;

IN: rosetta-code.image-noise

: <bw-noise-gadget> ( -- gadget )
    <random-bw-image> <model> bw-noise-gadget new-image-gadget*
    0 >>cnt 0 >>old-cnt V{ } clone >>timers ;