% code for producing animation of "The End"
  fig=figure;
       set(fig,'DoubleBuffer','on');
       set(gca,'xlim',[-.5 .5],'ylim',[-.005 .005],...
           'NextPlot','replace','Visible','off')
       mov = avifile('thank.avi')
       F = moviein(65);
       c = ['b';'g';'r';'c';'m';'y';'k'];
       c = [c;c;c];c = [c;c];c=[c;c];
       for i=0:64
	 for j = 1
        clf,
	T=text(0,0,'The End','fontsi',abs(32-i)+5,'rotation',(i-32)*45/2);
	set(T,'col',c(i+1,:),'HorizontalAlignment','center')
	axis([-.5 .5 [-1 1]*.02/4])
	axis off
        M= getframe(gca);
        mov = addframe(mov,M);
	F(:,i+1) = M;
	end
       end
       mov = close(mov);