>    with(plots):  

>    animatecurve([1+cos(x),x,x=0..2*Pi],coords=polar,numpoints=100,frames=100);

[Maple Plot]

>