Construct this figure:

> restart;

> x:=cos(t);

> y:=sin(t);

> m:=[[x,y],[x-t*y,y+t*x]];

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

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

>