%%Initializaties

Xpunten_nr=71;
Ypunten_nr=71;
Frames_nr=1005;
X_vec = linspace(-3500,3500,Xpunten_nr);
Y_vec = linspace(-3500,3500,Ypunten_nr);
Frame_vec = linspace(1,1005,Frames_nr);
%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(x)),'_',num2str(Y_vec(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)));
%tt = timer('TimerFcn',@mycallback,'Period', 1, 'TasksToExecute',2);

for f=1:200
    figure(1);
    imagesc(X_vec,Y_vec,(Main_matrix(:,:,f)),[-0.03+Min_nr Max_nr]);
    eval(strcat('saveas',char(40),'gcf',char(44),char(39),'.\Frames\resultaatgrafiek_',num2str(f),char(39),char(44),char(39),'jpg',char(39),char(41)))
    %start(tt)
    %wait(tt)
    
end


%% Film maken

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

for t=1:100 %filmpje met 100 frames

    %maak hier de figuur op het tijdstip t
    
    M(counter)=getframe(gcf, rect);
    counter=counter+1;
end

movie2avi(M,'film.avi')