Construct this design:

>

> restart;

> t:=Pi*k/100:

> x:=cos(t)-1:

> y:=sin(t):

> x1:=sqrt(1-(y-1)^2):

> m:=[[x,y],[x,-y],[x1,-y],[x1,y],[x,y]]:

> plot([m$k=1..50],color=blue,scaling=constrained,axes=none);

>