Chris@1: function run_segmentation(filename,outfilename,chromafilename)
Chris@1: %%
Chris@1: warning off
Chris@1: path(path,genpath('.'));
Chris@1: warning on
Chris@1: 
Chris@1: fprintf(2,'[MATLAB] initialising parameters...');
Chris@1: param = param_segmentation(chromafilename);
Chris@1: song = song_skeleton(filename);
Chris@1: fprintf(2,'done.\n');
Chris@1: 
Chris@1: fprintf(2,'[MATLAB] reading chroma...');
Chris@1: song = song_chroma(song, param);
Chris@1: fprintf(2,'done.\n');
Chris@1: 
Chris@1: fprintf(2,'[MATLAB] beat tracking (M Davies)...');
Chris@1: song = song_beat(song, param);
Chris@1: fprintf(2,'done.\n');
Chris@1: 
Chris@1: fprintf(2,'[MATLAB] beat-synchronising chroma...');
Chris@1: song = song_syncchroma(song,param);
Chris@1: fprintf(2,'done.\n');
Chris@1: 
Chris@1: fprintf(2,'[MATLAB] segmentation...');
Chris@1: song = song_segment(song, param);
Chris@1: song = song_segchroma(song,param);
Chris@1: fprintf(2,'.\n');
Chris@1: 
Chris@1: fprintf(2,'[MATLAB] post-processing segmentation...');
Chris@1: song = integratesmallparts(song);
Chris@1: fprintf(2,'.\n');
Chris@1: %%
Chris@1: fprintf(2,'[MATLAB] writing output file...');
Chris@1: % fprintf(1,'writing to %s\n', outfilename)
Chris@1: % write_song(song, bnet, param, outfilename, 'chordlab', 1);
Chris@1: % write_song(song, bnet, param, [outfilename(1:end-3) 'keylab'], 'keylab', 1);
Chris@1: % parts2csv(song, [outfilename(1:end-3) 'csv']);
Chris@1: parts2mirex(song, outfilename,'integrated');
Chris@1: fprintf(2,'done.\n');
Chris@1: exit