view evaluationtools/striproot.m @ 1:8973548174c1 tip

adding tools to repo

function chord = striproot(chordinput,rootc)

if nargin<2
    rootc=0;
end


    [rootnote, shorthand, intervals, bass, success, errormessage] = parsechord(chordinput);

    if strcmp(rootnote, 'N')
            chord = 'N';   
    else
            if isempty(shorthand) && isempty(intervals)
                chord = 'X';
            elseif isempty(intervals)
                chord = ['X:' shorthand];
            elseif isempty(shorthand)
                chord = ['X:(' intervals ')'];
            else
                chord = ['X:' shorthand '(' intervals ')'];
            end

            if ~isempty(bass)
                chord = [chord '/' bass];
            end
     
            if rootc
                chord(1) = 'C';
            end
    end