Cnonstruct this figure:

> restart;

> m:=[[-2*cos(t)-cos(-2*t),-2*sin(t)-sin(-2*t)],[-2*cos(t)+cos(-2*t),-2*sin(t)+sin(-2*t)]]:

> t:=k*2*Pi/100:

> plot([m$k=0..100],scaling=constrained,axes=none,color=violet);

>