comparison aux/clipfade.m @ 4:b28ffd29e6e1

Audio file preparation for listening test

-function clipfade(folder, startTime, endTime, fs)
+function clipfade(folder, starttime, endtime, fadetime, fs, bitdepth)
 % CLIPFADE clips and fades a fragment [start end] of all audio files in
 % a folder. 
 %
 % folder: path to all audio files (automatically selected)
 % start:  start time in seconds
 % end:    end time in seconds
 %
 % by Brecht De Man at Centre for Digital Music on 25 October 2013
 
-if nargin < 4
-    fs = 96000;
+if nargin < 6
+    bitDepth = 24;
 end
-
-fadeTime = 1; % fade time in seconds
-bitDepth = 16;
-slash    = '/'; % depending on OS
-
-%newFolder = 'Clips'; % folder where output files will be stored
-% MODIFICATION: store in place, do not keep unclipped files!
+slash    = '/';
 
 % list all audio files
 list = dir([folder slash '*.wav']);
 
-% make new folder if not present yet
-% if ~exist([folder slash newFolder], 'dir') % make output folder if not there
-%     mkdir(folder, newFolder);
-% end
+% remove hidden files from list
+% see http://www.mathworks.co.uk/matlabcentral/newsreader/view_thread/258220
+for k = length(list):-1:1
+    fname = list(k).name;
+    if fname(1) == '.'
+        list(k) = [ ];
+    end
+end
 
 for i = 1:length(list)
     if strcmp(list(i).name, 'bounce.wav')
         %disp(['     ' folder slash list(i).name]); % DEBUG