annotate aux/mono2stereo.m @ 0:4fd284285159
Adding listening test plus some helpful functions and scripts.
| author |
Brecht <b.deman@qmul.ac.uk> |
| date |
Thu, 24 Apr 2014 23:53:31 +0100 |
| parents |
|
| children |
|
| rev |
line source |
|
b@0
|
1 function mono2stereo(folder)
|
|
b@0
|
2 % MONO2STEREO join any two mono files in folder ending on 'L' and 'R' to
|
|
b@0
|
3 % one stereo file
|
|
b@0
|
4 %
|
|
b@0
|
5 % by Brecht De Man at Centre for Digital Music, 22 May 2013
|
|
b@0
|
6
|
|
b@0
|
7 list = dir([folder '/*.wav']);
|
|
b@0
|
8 for i = 2:length(list)
|
|
b@0
|
9 if strcmp(list(i).name(1:end-4), [list(i-1).name(1:end-5) 'R'])
|
|
b@0
|
10 if strcmp(list(i-1).name(1:end-4), [list(i).name(1:end-5) 'L'])
|
|
b@0
|
11 [L,fs] = audioread([folder '/' list(i-1).name]);
|
|
b@0
|
12 R = audioread([folder '/' list(i).name]);
|
|
b@0
|
13 audiowrite([folder '/' list(i).name(1:end-5) '.wav'], [L,R], fs, 'BitsPerSample', 24);
|
|
b@0
|
14 delete([folder '/' list(i-1).name], [folder '/' list(i).name]); % delete original files
|
|
b@0
|
15 end
|
|
b@0
|
16 end
|
|
b@0
|
17 end
|
|
b@0
|
18
|
|
b@0
|
19 end |
