% Este arquivo rotaciona N VEZES um objeto 
% os v´ertices dele s~ao P1 P2 P3 P4

P1=[0 ;0];
P2=[1 ;0];
P3=[1 ;1];
P4=[0 ;1];


% o quadrado
lineseg(P1,P2,'r')
lineseg(P2,P3,'r')
lineseg(P3,P4,'r')
lineseg(P4,P1,'r')

axis([-3 5 -3 5])
xlabel('eixo x')
ylabel('eixo y')

% rotacionando o quadrado n VEZES o ^angulo theta
% rotaç~ao: theta=45, forneç~ao valor de n

angulo= 45
n=2

 for i=1:n
     theta=angulo*(pi/180)*i
     R=[cos(theta) -sin(theta); sin(theta) cos(theta)]
     RP1=R*P1;
     RP2=R*P2;
     RP3=R*P3;
     RP4=R*P4;
     lineseg(RP1,RP2,'r')
     lineseg(RP2,RP3,'r')
     lineseg(RP3,RP4,'r')
     lineseg(RP4,RP1,'r')    
     axis([-3 5 -3 5])
     xlabel('eixo x')
     ylabel('eixo y')
 end

