next-draw ( gadget -- )

Vocabulary

bunny

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel math sequences ui.gadgets ;

IN: bunny

: next-draw ( gadget -- )
    dup [ draw-seq>> ] [ draw-n>> ] bi 1 + swap length mod
    >>draw-n relayout-1 ;