function conv3dmf2mat(s)

% ouverture du fichier
fid=fopen(s);

nbo=0;
while 1
	line = fgetl(fid);
	if ~isstr(line), break, end
	if findstr(line,'nVertices')
		nbo=nbo+1;
		debut=strtok(line,'#');
		nbs=str2num(debut);
		eval(['S',num2str(nbo),'=zeros(nbs,3);']);
		for i=1:nbs
			line = fgetl(fid);
			debut=strtok(line,'#');
			eval(['S',num2str(nbo),'(i,:)=str2num(debut);'])
		end
	end
	if findstr(line,'nFaces')
		debut=strtok(line,'#');
		nbf=str2num(debut);
		F=[];
		line = fgetl(fid);	% on saute la ligne qui contient 'nContours'
		for i=1:nbf
			line = fgetl(fid);
			debut=strtok(line,'#');
			sdeb=str2num(debut);
			F(i,1:sdeb(1))=sdeb(2:length(sdeb))+1;
		end
		eval(['F',num2str(nbo),'=F;'])
	end

end
nom_f=strtok(s,'.');
save(nom_f,'S*','F*')
fclose(fid);
