% SPHERETORE % Ce script nécessite la fonction: ftore 2 r=0; colormap autumn a=20; % Nombre d'étapes for i=1:(a-1) ftore2(0,2*pi,0,2*pi,r,r,2-r,2-r,0,0,0,3,50,1); zoom(1.7); shading interp axis image axis off drawnow r=r+2/a; end for i=1:(a-1) ftore2(0,2*pi,0,2*pi,r,r,2-r,2-r,0,0,0,3,50,1); zoom(1.7) shading interp axis image axis off drawnow r=r-2/a; end