function frames = make_fourier_rotation_movie(source,angles,colormap)
% function frames = make_fourier_rotation_movie(source,angles,colormap)
%

for a = 1:length(angles)
  result = imresize(abs(ifft2( fftshift(imrotate(fftshift(fft2(source)), ...
						  angles(a), 'bicubic') ))),[320 320],'bicubic');
  frames(a) = im2frame( round( (length(colormap) - 1 ) * rescale(result) + ...
			1), colormap);
end

