% snurr,  rotera en bokstav runt origo, här ett L 
  clear, clf
% Koordinaterna för bokstaven L
  xL=[ 0 0 7 7 2  2  0]+5;
  yL=[10 0 0 2 2 10 10];  
  plot(xL,yL), axis equal, hold on
  n=5;                        % Byt till n=8
  alfa=2*pi/n;  c=cos(alfa); s=sin(alfa);  S=[c -s; s c];
  for k=1:n
    P=S*[xL; yL]; xL=P(1,:); yL=P(2,:);  fill(xL,yL,'g')         
  end


