function objM = DDD2Movie(obj3d, dim)
%------------------------
% This function makes a movie from 3D data set
% The frames are taken along dimension dim (1,2, or 3).
% To view: > movie(objM)
%-----------------------------------
obj = shiftdim(obj3d, dim);
[ro, col, N] = size(obj3d);
for i = 1:N 
imagesc( obj(:,:,i))
   colormap gray
   axis equal
   axis off
   colorbar
objM(:,i) = getframe;
end
%
%     
%  Vicki Yang and Brani Vidakovic
%                  ISyE, GaTech 2002.