comparison toolboxes/MIRtoolbox1.3.2/MIRToolbox/@mirenvelope/mirsave.m @ 0:e9a9cd732c1e tip

first hg version after svn

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