axis equal;
M=moviein(16,gcf);
set(gca,'nextplot','replacechildren');
h=uicontrol('style','slider','position',...
[100 10 500 20],'min',1,'max',16);
for j=1:16
    plot(fft(eye(j+16)))
    set(h,'value',j)
    M(:,j)=getframe(gcf);
end
clf
axes('position',[0 0 1 1]);
movie(M,30)