%%Initializaties

Xpunten_nr=71;
Ypunten_nr=71;
Frames_nr=1005;
X_vec = linspace(-3.5,3.5,Xpunten_nr);
X_vec_0 = linspace(0,7000,Xpunten_nr);
Y_vec = linspace(-3.5,3.5,Ypunten_nr);
Y_vec_0 = linspace(0,7000,Xpunten_nr);
Frame_vec = linspace(1,1005,Frames_nr);

%if isempty(Main_matrix(:,:,:))
    Main_matrix = zeros(Xpunten_nr,Ypunten_nr,Frames_nr-1);

    %% Files inlezen en Main_mtrix maken

    for x=1:Xpunten_nr
        for y=1:Ypunten_nr
            tekst=['signal=load(''.\Cirkel\CIRKEL_',num2str(X_vec_0(x)),'_',num2str(Y_vec_0(y)),'.txt'');'];
            eval(tekst);
            Main_matrix(x,y,:)=signal;
            clear tekst;
            clear signal;
        end
    end 
    %Main_matrix(71,71,1004)
    Max_nr=max(max(max(Main_matrix)));
    Min_nr=min(min(min(Main_matrix)));

%end

%% Film maken

hf=figure;
rect = get(hf,'Position');
rect(1:2) = [0 0];
counter=1;

for t=1:370 %filmpje met 100 frames

    %maak hier de figuur op het tijdstip t
    imagesc(X_vec,Y_vec,(Main_matrix(:,:,t)),[-0.03+Min_nr Max_nr]);
    title(strcat('Tijd: ',num2str((t-1)*20),'ns'),'FontSize',14);
    colorbar('FontSize',12);
    xlabel('mm','FontSize',13);
    ylabel('mm','FontSize',13);
    M(counter)=getframe(gcf, rect);
    counter=counter+1;
    %eval(strcat('saveas',char(40),'gcf',char(44),char(39),'.\Frames\resultaatgrafiek_',num2str(t),char(39),char(44),char(39),'jpg',char(39),char(41)));
end

movie2avi(M,'film_INDEO5.avi')
%movie2avi(M,'film_INDEO5MAX.avi', 'quality', 100)
movie2avi(M,'film_DIVX6.avi', 'Compression', 'DIVX')
%movie2avi(M,'film_UNCOMPRESSED.avi', 'Compression', 'None')