Mercurial > hg > c4dm-chord-transcriptions
annotate evaluationtools/stripinversion.m @ 1:8973548174c1 tip
adding tools to repo
| author | christopherh |
|---|---|
| date | Mon, 06 May 2013 14:43:47 +0100 |
| parents | |
| children |
| rev | line source |
|---|---|
| christopherh@1 | 1 |
| christopherh@1 | 2 function chord = stripinversion(chordinput) |
| christopherh@1 | 3 |
| christopherh@1 | 4 chord = ''; |
| christopherh@1 | 5 |
| christopherh@1 | 6 ilength = length(chordinput); |
| christopherh@1 | 7 |
| christopherh@1 | 8 for i = 1:ilength |
| christopherh@1 | 9 |
| christopherh@1 | 10 if chordinput(i)~='/' |
| christopherh@1 | 11 chord = [chord chordinput(i)]; |
| christopherh@1 | 12 else |
| christopherh@1 | 13 break; |
| christopherh@1 | 14 end |
| christopherh@1 | 15 end |
| christopherh@1 | 16 |
| christopherh@1 | 17 |