% d2, snurra figuren D2
  clear, clf
% Koordinaterna för bokstaven D och siffran 2
  xD=[0  0  6 8 8 6 0 2 5 6 6 5 2 2]+5;
  yD=[0 10 10 7 3 0 0 2 2 4 6 8 8 2];      
  x2=[0  0  7 7 2 2 7 7 0 0 5 5 2 2 0]+15;
  y2=[7 10 10 5 3 2 2 0 0 4 6 8 8 7 7]; 
  plot(xD,yD, 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
    D=A*[xD; yD];    xD=D(1,:);    yD=D(2,:);
    two=A*[x2; y2];  x2=two(1,:);  y2=two(2,:); 
    fill(xD,yD,'m'), fill(x2,y2,'y')
  end


