trails-gadget

Vocabulary

trails

Definition

USING: ui.gadgets ;

IN: trails

TUPLE: trails-gadget < gadget points timer ;

Methods

USING: accessors colors namespaces opengl processing.shapes
trails ui.render ;

M:: trails-gadget draw-gadget* ( GADGET -- )
    T{ rgba { red 1 } { green 1 } { blue 1 } { alpha 0.4 } }
    fill-color set
    T{ rgba { red 0 } { green 0 } { blue 0 } { alpha 0 } }
    stroke-color set COLOR: black gl-clear GADGET points>>
    [ dot ] each-percent ;


USING: accessors generic kernel timers trails ui.gadgets ;

M: trails-gadget graft*
    [ timer>> start-timer ]
    [ M\ trails-gadget graft* (call-next-method) ] bi ;


USING: kernel trails ui.gadgets ;

M: trails-gadget pref-dim* drop { 500 500 } ;


USING: accessors generic kernel timers trails ui.gadgets ;

M: trails-gadget ungraft*
    [ timer>> stop-timer ]
    [ M\ trails-gadget ungraft* (call-next-method) ] bi ;