# animation of double pendulum
#
# frame it
permanent
rect 0;0;1;1;$BLUE;3
transient
fcircle .5;.5;.025;$BLACK
# here is the base
line .5;.5;.5+.2*sin(th1);.5-.2*cos(th1)
line .5+.2*sin(th1);.5-.2*cos(th1);.5+.2*sin(th1)+.2*sin(th2)\
;.5-.2*cos(th1)-.2*cos(th2)
fcircle .5+.2*sin(th1);.5-.2*cos(th1);.04;$RED
fcircle .5+.2*sin(th1)+.2*sin(th2);.5-.2*cos(th1)-.2*cos(th2);.04;$GREEN
end