<trails-gadget> ( -- trails-gadget )


Vocabulary
trails

Inputs
None

Outputs
trails-gadgetan object


Definition
USING: accessors arrays calendar circular kernel timers
ui.gadgets ;

IN: trails

: <trails-gadget> ( -- trails-gadget )
trails-gadget new 300 f <array> <circular> >>points
t >>clipped? dup [ dup iterate-system relayout-1 ] curry
f 10 milliseconds <timer> >>timer ;