% t2, snurra figuren T2
  clear, clf
% Koordinaterna för bokstaven T och siffran 2
  xT=[0  3  3  5  5  8  8  0  0]+3;
  yT=[8  8  0  0  8  8 10 10  8];  
  x2=[0  0  7 7 2 2 7 7 0 0 5 5 2 2 0]+13;
  y2=[7 10 10 5 3 2 2 0 0 4 6 8 8 7 7]; 
  plot(xT,yT, x2,y2),  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];
  for k=1:n
    T=A*[xT; yT];    xT=T(1,:);   yT=T(2,:);
    two=A*[x2; y2];  x2=two(1,:); y2=two(2,:);
    fill(xT,yT,'c'), fill(x2,y2,'g')
  end


