Construct this design:

> restart;

> t:=Pi*n/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$n=1..50],scaling=constrained,color=blue,axes=none);

maple