> restart:
x:=cos(t):
y:=sin(t):
m:=[x+x*sin(s), y+x*cos(s), s=-Pi..Pi]:
t:=n*Pi/50:
w:=evalf(m):
plot([w$n=1..100],color=blue,axes=none,scaling=constrained);

>