% *** ---------------------------------------------------------------------------------------- *** %
% ***| Funcion que recorre el camino minimo entre semilla y posicion                         | *** %
% *** ---------------------------------------------------------------------------------------- *** %

function imag = camino(imag,flechas,semilla,posicion,color_camino,color_puntos)

posicion_original = posicion;

image(imag);

% Recorre el camino hacia atras, desde el ultimo click hasta la semilla
while (posicion(1) ~= semilla(1) | posicion(2) ~= semilla(2))  
    
    posicion_nueva(1) = flechas(posicion(1),posicion(2),1);
    posicion_nueva(2) = flechas(posicion(1),posicion(2),2);

    posicion(1) = posicion_nueva(1);
    posicion(2) = posicion_nueva(2);
    
    imag(posicion(1),posicion(2),[1 2 3]) = color_camino;           % marcado de cada pixel del camino
    
end  

imag(semilla(1),semilla(2),[1 2 3]) = color_puntos;                 % marcado de los 2 puntos que se han pinchado
imag(posicion_original(1),posicion_original(2),[1 2 3]) = color_puntos;
image(imag);

    