function indice = calcula_imagen(punto,padre,num_pared)

% Función que calcula una fuente puntual imagen respecto a una pared para
% un punto transmisor y la almacena en IMAGENES
%
%              *(Xt,Yt) Punto 
%              | 
%              |(Xq,Yq)
%(X1,Y2)*------*---------------------* (X2,Y2) Pared
%              |
%              |
%              *(Xi,Yi) Imagen

global IMAGENES FACETAS;
[indice ~] = size(IMAGENES); %índice de la última imagen calculada 
pared=FACETAS(num_pared,1:4);

Xt = punto(1);
Yt = punto(2);
X1 = pared(1);
Y1 = pared(2);
X2 = pared(3);
Y2 = pared(4);

Xq = X1+(((X2-X1)*(Xt-X1)+(Y2-Y1)*(Yt-Y1))/((X2-X1)^2+(Y2-Y1)^2))*(X2-X1);
Yq = Y1+(((X2-X1)*(Xt-X1)+(Y2-Y1)*(Yt-Y1))/((X2-X1)^2+(Y2-Y1)^2))*(Y2-Y1);

Xi = 2*Xq-Xt;
Yi = 2*Yq-Yt;

indice = indice+1; %Rellenamos la siguiente fila de IMAGENES
IMAGENES(indice,1:4) = [Xi Yi padre num_pared]; % El padre es el punto(su indice) y la faceta es la pared (su indice) respecto a la que se ha calculado
end
