% 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