Mauch MIREX 2010

function parts2mirex(song, filename, varargin)

if nargin > 2 && strcmp(varargin{1}, 'integrated')

    parts = song.integratedparts;

else 

    parts = song.parts;

end

beattimes = song.beattimes;

% beattimes = [0; beattimes];

startIndex = [];

letters = {};

for iPart = 1:length(parts)

    for iInstance = 1:length(parts(iPart).indices)

       startIndex = [startIndex parts(iPart).indices(iInstance)];

       letters = [letters parts(iPart).letter];

    end

end

[sorted, sortind] = sort(startIndex);

endIndex = zeros(length(sorted),1);

for iIndex = 1:length(sorted)-1;

    endIndex(iIndex) = sorted(iIndex+1);

end

endIndex(end) = length(beattimes);

f = fopen(filename,'w');

fprintf(f,'0.000 %1.3f "%s"\n',beattimes(endIndex(1)),letters{sortind(1)});

for iSeg = 2:length(sorted)-1

    fprintf(f,'%1.3f %1.3f "%s"\n',beattimes(sorted(iSeg)),beattimes(endIndex(iSeg)),letters{sortind(iSeg)});

end

fprintf(f,'%1.3f %1.3f "%s"\n',beattimes(sorted(end)),song.t(end),letters{sortind(end)});

fclose(f);