christopherh@1
|
1 %
|
christopherh@1
|
2 % MLF2LAB Convert mlf file to lab file
|
christopherh@1
|
3 %
|
christopherh@1
|
4 % mlf2lab(inputfile, labfile)
|
christopherh@1
|
5 %
|
christopherh@1
|
6 % Converts a '.mlf' transcription file "inputfile" to a wavesurfer '.lab'
|
christopherh@1
|
7 % transcription file "labfile".
|
christopherh@1
|
8 %
|
christopherh@1
|
9 % See also labread, labwrite, checklabsyntax.
|
christopherh@1
|
10 %
|
christopherh@1
|
11 % Author: Christopher Harte, March 2009
|
christopherh@1
|
12 %
|
christopherh@1
|
13 % Copyright: Centre for Digital Music, Queen Mary University of London 2005
|
christopherh@1
|
14 %
|
christopherh@1
|
15 % This file is part of the C4DM Chord Toolkit V2.0
|
christopherh@1
|
16 %
|
christopherh@1
|
17 % The C4DM Chord Toolkit is free software; you can redistribute it and/or
|
christopherh@1
|
18 % modify it under the terms of the GNU General Public License as published
|
christopherh@1
|
19 % by the Free Software Foundation; either version 2 of the License, or
|
christopherh@1
|
20 % (at your option) any later version.
|
christopherh@1
|
21 %
|
christopherh@1
|
22 % The C4DM Chord Toolkit is distributed in the hope that it will be useful,
|
christopherh@1
|
23 % but WITHOUT ANY WARRANTY; without even the implied warranty of
|
christopherh@1
|
24 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
christopherh@1
|
25 % GNU General Public License for more details.
|
christopherh@1
|
26 %
|
christopherh@1
|
27 % You should have received a copy of the GNU General Public License
|
christopherh@1
|
28 % along with the C4DM Toolkit; if not, write to the Free Software
|
christopherh@1
|
29 % Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
christopherh@1
|
30
|
christopherh@1
|
31 %
|
christopherh@1
|
32 function mlf2lab(inputfile, labfile)
|
christopherh@1
|
33
|
christopherh@1
|
34
|
christopherh@1
|
35 [timestamps, timestamps2, stamps] = textread(inputfile, '%f %f %s');
|
christopherh@1
|
36
|
christopherh@1
|
37
|
christopherh@1
|
38 newtimes = timestamps./10000000;
|
christopherh@1
|
39 newtimes2 = timestamps2./10000000;
|
christopherh@1
|
40
|
christopherh@1
|
41
|
christopherh@1
|
42 fid = fopen(labfile, 'w');
|
christopherh@1
|
43
|
christopherh@1
|
44 for i = 1:length(newtimes)
|
christopherh@1
|
45
|
christopherh@1
|
46 outtext = ['%f %f ' char(stamps(i)) '\n'];
|
christopherh@1
|
47
|
christopherh@1
|
48 fprintf(fid, outtext, newtimes(i), newtimes2(i));
|
christopherh@1
|
49
|
christopherh@1
|
50 end
|
christopherh@1
|
51
|
christopherh@1
|
52 fclose(fid);
|
christopherh@1
|
53
|
christopherh@1
|
54
|