
function dibujaRectaPAng(puntoP,tita,color)
%Dibuja la recta pasa por P(x,y) con el ang (con horiz) tita en grados
%Visualizar imagen previamente y mantener con hold on
% Ejemplo:
% I=imread('cameraman.tif');
% imshow(I);
% hold on;
% p=[100, 10];
% dibujaRectaPAng(p,-45,'m');
%------------------------------------------------------------------------

%Marco el punto de paso con una cruz
plot(puntoP(1),puntoP(2),[color, '+']);

%Pongo valores muy altos para que valga incluso para imagenes muy grandes
filas=2000;
columnas=2000;

if(abs(tita)==90)   %recta vertical
    %punto inicial
    x(1)=puntoP(1);
    y(1)=1;
    %punto final
    x(2)=puntoP(1);
    y(2)=filas; 
    
else 
    m=tan(tita*pi/180); %pendiente de la recta
    b=puntoP(2)-m*puntoP(1);%ordenada en el origen de la recta
    x(1)=0;
    y(1)=b;
    x(2)=columnas;
    y(2)=m*x(2)+b;
    
end
    

plot(x,y,[color, '-']); 


