<pendulum-gadget> ( -- gadget )


Vocabulary
rosetta-code.animate-pendulum

Inputs
None

Outputs
gadgetan object


Definition
USING: accessors kernel ;

IN: rosetta-code.animate-pendulum

: <pendulum-gadget> ( -- gadget )
pendulum-gadget new { 500 500 } >>pref-dim ;