To check out this repository please hg clone the following URL, or open the URL using EasyMercurial or your preferred Mercurial client.
root / run_chordandkey.m
History | View | Annotate | Download (1.26 KB)
| 1 | 0:4182672fd6f8 | Chris | function run_chordandkey(filename,outfilename,chromafilename) |
|---|---|---|---|
| 2 | %% |
||
| 3 | warning off |
||
| 4 | path(path,genpath('.'));
|
||
| 5 | warning on |
||
| 6 | |||
| 7 | fprintf(2,'[MATLAB] initialising parameters...'); |
||
| 8 | param = param_mirex(chromafilename); |
||
| 9 | song = song_skeleton(filename); |
||
| 10 | fprintf(2,'done.\n'); |
||
| 11 | |||
| 12 | fprintf(2,'[MATLAB] building DBN...'); |
||
| 13 | bnet = dbn_ISMIR2010(param); |
||
| 14 | fprintf(2,'done.\n'); |
||
| 15 | |||
| 16 | fprintf(2,'[MATLAB] reading chroma...'); |
||
| 17 | song = song_chroma(song, param); |
||
| 18 | fprintf(2,'done.\n'); |
||
| 19 | |||
| 20 | fprintf(2,'[MATLAB] beat tracking (M Davies)...'); |
||
| 21 | song = song_beat(song, param); |
||
| 22 | fprintf(2,'done.\n'); |
||
| 23 | |||
| 24 | fprintf(2,'[MATLAB] beat-synchronising chroma...'); |
||
| 25 | song = song_syncchroma(song,param); |
||
| 26 | fprintf(2,'done.\n'); |
||
| 27 | |||
| 28 | fprintf(2,'[MATLAB] segmentation...'); |
||
| 29 | song = song_segment(song, param); |
||
| 30 | song = song_segchroma(song,param); |
||
| 31 | fprintf(2,'.\n'); |
||
| 32 | |||
| 33 | fprintf(2,'[MATLAB] DBN inference...'); |
||
| 34 | song = inference(song, bnet, param); |
||
| 35 | fprintf(2,'.\n'); |
||
| 36 | %% |
||
| 37 | fprintf(2,'[MATLAB] writing output files...'); |
||
| 38 | % fprintf(1,'writing to %s\n', outfilename) |
||
| 39 | write_song(song, bnet, param, outfilename, 'chordlab', 1); |
||
| 40 | write_song(song, bnet, param, [outfilename(1:end-5) 'key'], 'keylab', 1); |
||
| 41 | % parts2csv(song, [outfilename(1:end-3) 'csv']); |
||
| 42 | % parts2csv(song, [outfilename(1:end-3) 'intcsv'],'integrated'); |
||
| 43 | fprintf(2,'done.\n'); |
||
| 44 | exit |