Daniel@0: function mirsave(e,f)
Daniel@0: 
Daniel@0: ext = 0;    % Specified new extension
Daniel@0: if nargin == 1
Daniel@0:     f = '.envelope.mir';
Daniel@0: elseif length(f)>3 && strcmpi(f(end-3:end),'.wav')
Daniel@0:     ext = '.wav';
Daniel@0:     if length(f)==4
Daniel@0:         f = '.mir';
Daniel@0:     end
Daniel@0: elseif length(f)>2 && strcmpi(f(end-2:end),'.au')
Daniel@0:     ext = '.au';
Daniel@0:     if length(f)==3
Daniel@0:         f = '.mir';
Daniel@0:     end
Daniel@0: end
Daniel@0: 
Daniel@0: d = get(e,'Data');
Daniel@0: nf = length(d);
Daniel@0: fs = get(e,'Sampling');
Daniel@0: nm = get(e,'Name');
Daniel@0: for i = 1:nf
Daniel@0:     di = d{i}{1};
Daniel@0:     fsi = fs{i};
Daniel@0:     nmi = nm{i};
Daniel@0:     di = resample(di,11025,round(fs{i}));
Daniel@0:     di = rand(size(di)).*di;
Daniel@0:     di = di/max(max(max(abs(di))))*.9999;
Daniel@0:     di = reshape(di,[],1);
Daniel@0:     
Daniel@0:     %Let's remove the extension from the original files
Daniel@0:     if length(nmi)>3 && strcmpi(nmi(end-3:end),'.wav')
Daniel@0:         nmi(end-3:end) = [];
Daniel@0:     elseif length(nmi)>2 && strcmpi(nmi(end-2:end),'.au')
Daniel@0:         nmi(end-2:end) = [];
Daniel@0:     end
Daniel@0:     
Daniel@0:     if nf>1 || strcmp(f(1),'.')
Daniel@0:         %Let's add the new suffix
Daniel@0:         n = [nmi f];
Daniel@0:     else
Daniel@0:         n = f;
Daniel@0:     end
Daniel@0:     
Daniel@0:     if not(ischar(ext)) || strcmp(ext,'.wav')
Daniel@0:         if length(n)<4 || not(strcmpi(n(end-3:end),'.wav'))
Daniel@0:             n = [n '.wav'];
Daniel@0:         end
Daniel@0:         wavwrite(di,11025,32,n)
Daniel@0:     elseif strcmp(ext,'.au')
Daniel@0:         if length(n)<3 || not(strcmpi(n(end-2:end),'.au'))
Daniel@0:             n = [n '.au'];
Daniel@0:         end
Daniel@0:         auwrite(di,11025,32,'linear',n)
Daniel@0:     end
Daniel@0:     disp([n,' saved.']);
Daniel@0: end