% f2, snurra figuren F2
  clear, clf
  xF=[0  0  8  8  2  2  6  6  2  2  0]+3;     % x-koord för F
  yF=[0 10 10  8  8  6  6  4  4  0  0];       % y-koord för F
  x2=[0  0  7 7 2 2 7 7 0 0 5 5 2 2 0]+13;    % x-koord för siffran 2
  y2=[7 10 10 5 3 2 2 0 0 4 6 8 8 7 7];       % y-koord för siffran 2
  subplot(2,1,1), plot(xF,yF, x2,y2), axis equal
  subplot(2,1,2), plot(0,0,'o'), axis equal, hold on
  disp('Rotera allt, varvet delas i n delar')
  n=input('n-värde: ')
  alfa=2*pi/n;  
  c=cos(alfa); s=sin(alfa);  A=[c -s; s c];   % vridningsmatris
  for k=1:n
    xyF=A*[xF; yF];  xF=xyF(1,:);  yF=xyF(2,:);   fill(xF,yF,'g')
    xy2=A*[x2; y2];  x2=xy2(1,:);  y2=xy2(2,:);   fill(x2,y2,'m')
  end


