relative-xy ( theta l -- xy )

Vocabulary

rosetta-code.animate-pendulum

Inputs

theta	an object
l	an object

Outputs

xy

an object

Definition

USING: arrays kernel math math.functions ;

IN: rosetta-code.animate-pendulum

: relative-xy ( theta l -- xy )
    [ [ sin ] [ cos ] bi ] [ [ * ] curry ] bi* bi@ 2array ;