# pendulum.ani - goes with pendulum.ode
# animation for the pendulum
#
PERM
# the frame
settext 3;roman;$BLACK
text .2;.9;The pendulum
line .5;.1;.9;.1;$GREEN;2
line .5;.5;.7;.5;$GREEN;2
line .7;.5;.7;.1;$GREEN;2
settext 1;roman;$BLACK
#
TRANS
# the pendulum
vtext .05;.05;t= ;t
line .5;.5;.5+.3*sin(theta);.5-.3*cos(theta);$BLUE;3
fcircle .5+.3*sin(theta);.5-.3*cos(theta);.04;$RED
done