function saveanim(i,fname,path)

global fname path

% on pique l'image

f = getframe(gcf);
x = frame2im(f);

% si le nom de fichier n'est pas spécifié et première image

if (nargin == 1) & (i == 1)
   [fname,path] = uiputfile('*.jpg','Enregistrer l''image');
end

% on a cliqué sur annuler

if fname == 0
   return
end

% nom complet du fichier 

fullfname = [fname num2str(i+100)];

imwrite(x,[path fullfname '.jpg'],'jpg','Quality',100)