start-animation ( gadget -- )

Vocabulary

rosetta-code.image-noise

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors calendar kernel sequences timers ;

IN: rosetta-code.image-noise

: start-animation ( gadget -- )
    [ [ animate-image ] curry 1 nanoseconds every ]
    [ timers>> push ] bi ;