diff aux/clipfade.m @ 4:b28ffd29e6e1

Audio file preparation for listening test

--- a/aux/clipfade.m	Mon Nov 17 23:01:09 2014 +0000
+++ b/aux/clipfade.m	Wed Nov 19 18:59:51 2014 +0000
@@ -1,4 +1,4 @@
-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. 
 %
@@ -8,24 +8,22 @@
 %
 % 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')