> restart:
x:=(1-a)*cos(t):
y:=a*sin(t):
a:=k/20:
m:=[x,y,t=0..2*Pi]:
plot([m$k=0..20],scaling=constrained,axes=none,color=blue);

>