b@0: function mono2stereo(folder)
b@0: % MONO2STEREO join any two mono files in folder ending on 'L' and 'R' to 
b@0: % one stereo file
b@0: %
b@0: % by Brecht De Man at Centre for Digital Music, 22 May 2013
b@0: 
b@0: list = dir([folder '/*.wav']);
b@0: for i = 2:length(list)
b@0:     if strcmp(list(i).name(1:end-4), [list(i-1).name(1:end-5) 'R'])
b@0:         if strcmp(list(i-1).name(1:end-4), [list(i).name(1:end-5) 'L'])
b@0:             [L,fs] = audioread([folder '/' list(i-1).name]);
b@0:             R      = audioread([folder '/' list(i).name]);
b@0:             audiowrite([folder '/' list(i).name(1:end-5) '.wav'], [L,R], fs, 'BitsPerSample', 24);
b@0:             delete([folder '/' list(i-1).name], [folder '/' list(i).name]); % delete original files
b@0:         end
b@0:     end
b@0: end
b@0: 
b@0: end