lin_evol_animate_solution.m

function lin_evol_animate_solution(U, grid, options)
%function lin_evol_animate_solution(U, grid, params)
%
% Animation of the solution U from sim_data and saving animation in a file
%
% Markus Dihlmann 28.06.10
%



animation_pause = 0.1; % pause after each plot



if nargin==2
    options=[];
end


if ~isfield(options,'file_name')
    options.file_name = 'solutionanimation.avi';
end


if isfield(options,'figureNr')
    figure(options.figureNr);
else
    figure;
end
hold on;


if isfield(options,'nr_frames')
    nr_frames = options.nr_frames;
    if nr_frames<size(U,2)
        step = floor(size(U,2)/nr_frames);
        
        U_new = zeros(size(U,1),nr_frames);
        
        for i=1:nr_frames
            U_new(:,i) = U(:,i*step);
        end
        
        if (nr_frames*step<size(U,2))
            U_new = [U_new,U(:,end)];
        end
        U=U_new;
    end
end


mov = avifile(fullfile(rbmatlabtemp,[options.file_name]));
  mov.Quality = 100;
  mov = set(mov,'Compression','None');
  frame_rep = ceil(15*animation_pause);
  
  
  options.shrink_factor=1.0;
  options.no_lines=1;
  
  nt = size(U,2);
  
  for t=1:nt
      plot_element_data(U(:,t),grid,options);
      
      F = getframe(gcf);
      for fr = 1:frame_rep
        mov = addframe(mov,F);
      end;
  end
  
  mov = close(mov);