animate-image ( control -- )

Vocabulary

rosetta-code.image-noise

Inputs

control

an object

Outputs

None

Definition

USING: accessors kernel math models ;

IN: rosetta-code.image-noise

: animate-image ( control -- )
    [ 1 + ] change-cnt model>> <random-bw-image> swap set-model
    ;