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

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

% P1=[0 ;0];
% P2=[2 ;0];
% P3=[2 ;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
% rotaç~ao de theta=45 (graus anti hor´ario)
% Matriz de rotaçao:

theta=(pi/180)*45

% testando cos((pi/180)*45) com sqrt(2)/2
R=[cos(theta) -sin(theta); sin(theta) cos(theta)]

%  figure
RP1=R*P1
RP2=R*P2
RP3=R*P3
RP4=R*P4

% o quadrado rotacionado (em cor azul)
 
lineseg(RP1,RP2,'b')
lineseg(RP2,RP3,'b')
lineseg(RP3,RP4,'b')
lineseg(RP4,RP1,'b')
 axis([-3 5 -3 5])
 xlabel('eixo x')
 ylabel('eixo y')
 
%  % mais uma rotaç~ao de 45
%  
%  theta=(pi/180)*90
% 
% % testando cos((pi/180)*45) com sqrt(2)/2
% R=[cos(theta) -sin(theta); sin(theta) cos(theta)]
% 
% %  figure
% RP1=R*P1
% RP2=R*P2
% RP3=R*P3
% RP4=R*P4
% 
% % o quadrado rotacionado (em cor verde)
%  
% lineseg(RP1,RP2,'g')
% lineseg(RP2,RP3,'g')
% lineseg(RP3,RP4,'g')
% lineseg(RP4,RP1,'g')
%  axis([-3 5 -3 5])
%  xlabel('eixo x')
%  ylabel('eixo y')
%  
% 
