function arbol_imagenes(num_facetas,num_refl)
%Función que crea el árbol de imágenes de orden especificado
%de un punto transmisor respecto a las paredes especificadas
global FACETAS IMAGENES

[ult_im ~] = size(IMAGENES);  %Obtengo el índice de la última imagen
for num_refl=2:num_refl %creamos imagenes de orden 2 hasta el especificado
    n_im_ord_inf=(num_facetas)*(num_facetas-1)^(num_refl-2); %Menos 2 por ser orden inferior al actual
    for num_im=(ult_im-n_im_ord_inf+1):ult_im %empiezo en la fila correspondiente al subnivel correcto
        for num=1:num_facetas
            if(IMAGENES(num_im,4)~=num) %No creo imagenes respecto a su faceta original
                punto = IMAGENES(num_im,1:2);
                ult_im = calcula_imagen(punto,num_im,num); %Almaceno la imagen y actualizo el índice de la última imagen, num es la faceta y padre
            end
        end
    end
end
end
