r=1;
alfa=45;
n=16;
s=r*sin(alfa*pi/180);
c=r*cos(alfa*pi/180);
 uno=[c-s s+c]; dos=[-c-s -s+c]; tres=[-c+s -s-c]; cuatro=[c+s s-c]; cinco=[c-s s+c];
 plot(dos,uno,'y',tres,dos,'r',cuatro,tres,'g',cinco,cuatro,'b')
 title('saludos')
 axis([-2 2 -2 2])
pause;


axis equal
M=moviein(n);
for alfa=1:n
 s=r*sin((alfa+2)*360/16*pi/180);
 c=r*cos((alfa+2)*360/16*pi/180);
 uno=[c-s c+s]; dos=[-c-s c-s]; tres=[-c+s -c-s];
 cuatro=[c+s -c+s];
 plot([c-s -c-s],[ c+s  c-s],'y-',[-c-s -c+s],[ c-s -c-s],'r-',...
      [-c+s c+s],[-c-s -c+s],'g-',[ c+s  c-s],[-c+s  c+s],'b-')
 axis([-2 2 -2 2])
 title('saludos')
 for i=1:1000 temp=i; end
 if alfa==1 pause; end
 M(:,alfa)=getframe;
end


        
