gadget-xy ( gadget -- xy )


Vocabulary
rosetta-code.animate-pendulum

Inputs
gadgetan object


Outputs
xyan object


Definition
USING: kernel ;

IN: rosetta-code.animate-pendulum

: gadget-xy ( gadget -- xy )
[ O ] [ drop theta ] [ window-l ] tri theta-to-xy ;