start-rotation-thread ( GADGET -- )

Vocabulary

L-system

Inputs

GADGET

an object

Outputs

None

Definition

USING: accessors calendar kernel threads ui.gadgets ;

IN: L-system

:: start-rotation-thread ( GADGET -- )
    GADGET f >>paused drop [
        [
            GADGET paused>>
            [ f ] [
                GADGET iterate-system GADGET relayout-1
                25 milliseconds sleep t
            ] if
        ] loop
    ] in-thread ;