% Desenho do duplo pendulo
%
% pendulo2_draw(x1,y1,x2,y2,win_width)
%
% Entradas:
% (x1,y1) - Coordenadas da segunda junta
% (x2,y2) - Coordenadas da extremidade do pendulo
% win_width - Dimensao da janela grafica

function pendulo2_draw(x1,y1,x2,y2,win_width)

% Verificaçao dos argumentos
if (nargin<4)
    error('MATLAB:badarg','Insufficient arguments.');
end
if (nargin<5)
    win_width=1;
end

% Desenho dos elos
plot([0,x1],[0,y1],'r', [x1,x2],[y1,y2],'b', ...
     0,0,'ro', x1,y1,'bo', x2,y2,'bs', 'linewidth',3);

% Definiçao da gama dos eixos
axis('equal'), axis(win_width*[-1 1 -1 1]);

title('Animaçao do duplo pendulo');