MITgcm_contrib/arnaud_matlab/show_movie.m

%
% function [M] = show_movie(field,x,y,NREC,lax,palette,NFIG,NTIMES,FPS)
%
% return a movie matrix M.
%
    function [M] = show_movie(field,x,y,NREC,lax,palette,NFIG,NTIMES,FPS)

    M = moviein(NREC);
    figure(NFIG)
    for n=1:NREC
      pcolor(x,y,field(:,:,n)');
      title(['record N = ' num2str(n)],'Fontsize',18);
      caxis(lax);
      colormap(palette);
      colorbar;
      M(:,n) = getframe;
    end
    movie(M,NTIMES,FPS)
1	edhill	1.1	%
2			% function [M] = show_movie(field,x,y,NREC,lax,palette,NFIG,NTIMES,FPS)
3			%
4			% return a movie matrix M.
5			%
6			function [M] = show_movie(field,x,y,NREC,lax,palette,NFIG,NTIMES,FPS)
7
8			M = moviein(NREC);
9			figure(NFIG)
10			for n=1:NREC
11			pcolor(x,y,field(:,:,n)');
12			title(['record N = ' num2str(n)],'Fontsize',18);
13			caxis(lax);
14			colormap(palette);
15			colorbar;
16			M(:,n) = getframe;
17			end
18			movie(M,NTIMES,FPS)