# animation file for pendulum
line .5;.5;.5+.4*sin(x);.5-.4*cos(x);$BLACK;3
fcircle .5+.4*sin(x);.5-.4*cos(x);.05;$RED
grab .5+.4*sin(x);.5-.4*cos(x);.02
{x=th(mouse_x,mouse_y)}
{x=th(mouse_x,mouse_y);xp=thdot(mouse_x,mouse_y,mouse_vx,mouse_vy);runnow=1}
end





















