Mercurial > hg > ape
annotate aux/mono2stereo.m @ 15:24be5e9ce25b tip
Update README
| author | Brecht De Man <brecht.deman@bcu.ac.uk> |
|---|---|
| date | Thu, 20 Sep 2018 12:23:20 +0200 |
| parents | 4fd284285159 |
| 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 |