% LA DEFORMATION

% Ce script montre comment on peut déformer un objet:

% Dessin d'une sphère:

[t,p] = meshgrid(0:pi/25:2*pi,-pi/2:pi/25:pi/2);

x = cos(p).*cos(t);

y = cos(p).*sin(t);

z = sin(p);

boule = surf(x,y,z);

colormap jet

shading interp

axis equal

view(-40,10)

z0=get(boule,'ZData'); % Coordonnées initiales en Z

d = 1:-0.05:0.1; % Vecteur de déformation

for i = 1:length(d)

set(boule,'ZData',z0*d(i))

drawnow

end

d = 0.1:0.05:1;

for i = 1:length(d)

set(boule,'ZData',z0*d(i))

drawnow

end

% NOTE: Pour déformer un objet, on multiplie ses coordonnées initiales par une variable.