O ( gadget -- origin )


Vocabulary
rosetta-code.animate-pendulum

Inputs
gadgetan object


Outputs
originan object


Definition
USING: arrays kernel math math.rectangles sequences ;

IN: rosetta-code.animate-pendulum

: O ( gadget -- origin )
rect-bounds [ drop ] [ first 2 / ] bi* 0 2array ;