> 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);

>