4-13 Construct this pattern

> x:=cos(t):

> y:=sin(t):

> m:=[x+t*cos(s),y+t*sin(s),s=0..2*Pi]:

> t:=n*Pi/20:

> plot([m$n=1..100],color=red,scaling=constrained,axes=none);

>

> restart:

> x:=cos(t):

> y:=sin(t):

> m:=[x+cos(s),y+sin(s),s=0..2*Pi]:

> t:=n*Pi/20:

> plot([m$n=1..100],color=red,scaling=constrained,axes=none);

>