j*dZddlmZddlZddlZddlZdZGddZGddZ Gd d ej Z e d krddl Z e je dSdS) z Harmonic annotations from humdrum to `music21`. The `**harm` representation is described here: https://www.humdrum.org/rep/harm/ ) annotationsNct|}|sdS|ddkr d}dg|d<n,|ddkrd}n|dd kr d }dg|d<n|d}d }|d r|d }d }|d r|d }d }|dr d|dvrd}|drgd|d}nd}d }|dkr|rdnd }n"|dkr|rdnd}n|dkr|rdnd}n|dkrd}g}|drD|d |d} | r%|| d| d} | %d } |rd|} ||z|z|z| zS)al Converts a `**harm` string into a string that can be used to instantiate a RomanNumeral object. This is necessary because the two notations are not identical. For example, a "V7b" in `**harm` turns into "V65". Instantiate a HarmParser to process `**harm` strings >>> convertHarmToRoman = humdrum.harmParser.convertHarmToRoman Convert a few `**harm` strings to music21.roman.RomanNumeral figures >>> diatonicTriads = ['I', 'Vc', 'Ib', 'iib', 'V', 'viiob', 'vib'] >>> [convertHarmToRoman(x) for x in diatonicTriads] ['I', 'V64', 'I6', 'ii6', 'V', 'viio6', 'vi6'] A few seventh-chord inversions >>> diatonicSevenths = ['V7', 'viio7c', 'V7d', 'viio7b', 'V7c'] >>> [convertHarmToRoman(x) for x in diatonicSevenths] ['V7', 'viio43', 'V2', 'viio65', 'V43'] Inversion-wise, augmented sixth chords are a bit tricky German and French are treated as seventh-chords (4 notes) Italians are treated as triads >>> italianSixths = ['Lt', 'Ltb', 'Ltc'] >>> [convertHarmToRoman(x) for x in italianSixths] ['It', 'It6', 'It64'] >>> frenchSixths = ['Fr', 'Frb', 'Frc', 'Frd'] >>> [convertHarmToRoman(x) for x in frenchSixths] ['Fr7', 'Fr65', 'Fr43', 'Fr2'] >>> germanSixths = ['Gn', 'Gnb', 'Gnc', 'Gnd'] >>> [convertHarmToRoman(x) for x in germanSixths] ['Ger7', 'Ger65', 'Ger43', 'Ger2'] NrootGnGer7 intervalsLtItFr accidental attributeFT inversion)abcdr65643642 secondary/) HarmParserparseindexappendjoin) harmStrharmdegree alteration fifthsQuality isSeventhinversionNumberrsecondaryFunctionsrs /Users/tedpeters/Documents/Projects/Claude Projects/Misc Tools/notename-sheets/.venv/lib/python3.11/site-packages/music21/humdrum/harmParser.pyconvertHarmToRomanr-s%R <<  g & &D t F|t E[ f   f   E[fJ L(,' M K*[) I KSD$555  K...44T+5FGGI!$,CC" A  %.DD3 A  %/DD4 A    K/!!"%%%%  /  % %i&7 8 8 8!+.I /I1HH/00   . :Y FFcfeZdZdZdZdZdZdZdZdZ dZ d Z d ezezezezeze ze zd zZ d S) HarmDefszA Regular expression definitions for the HarmParser class zK (?P # Named group _accidental [#-]{0,2}) z (?P # Named group _root_ i|ii|iii|iv|v|vi|vii| # Minor mode degrees I|II|III|IV|V|VI|VII| # Major mode degrees N|Gn|Lt|Fr|Tr) # Special chords zF (?P # Named group _attribute_ [o+]?) aO ((?P # Named group _intervals \d+|[mMPAD]\d+| # Detect minor, Major, Augmented or Diminished intervals AA\d+| # Double-augmented intervals DD\d+) # Double-diminished intervals *) # Not a limit on how many intervals can be added z (?P # Named group _inversions_ [b-d]?) # Only third inversions possible so far a ^( # Match for entire string or fail \( # Open parenthesis (?P # Group the expression ([^\(^\)])+ # At least one expression ) # /Group the expression \) # Closing parenthesis )$ # /Match for entire string or fail aQ (\[ # Open brackets (?P # Named group _alternative_ ([^\[^\]])+) # Match at least one time for any expression inside brackets \] # Close brackets )? # If no alternative expression, then no brackets should appear at all a( (/ # Slash implies a secondary function (?P # Named group _secondary_ ([\s\S])+) # Get all the expression after the slash symbol )? # If no secondary function, then the slash symbol should not appear z^(z)$N) __name__ __module__ __qualname____doc__rrootsrr rimplied alternativerharmExpressionr.r,r0r0vs J  EIII GKI           NNNr.r0c4eZdZdZeZdZddZdS)rz1 Parses an expression in `**harm` syntax ctjtjjtj|_tjtjjtj|_dS)N) recompilerdefsr8VERBOSE harmRegExpr6 impliedRegExp)selfs r,__init__zHarmParser.__init__s=*Z_%CRZPPZ (?LLr.returndict[str, t.Any]c|j|}|r8|d}||}|rd|d<|S|j|}|ro|}d|d<|d"|d}||}||d<|d"|d}||} | |d<|SiS)Nimplied_harmonyTr6Fr7r)rAmatch groupdictr r@) rBr8 impliedMatchimpliedHarmonymmatchHarmRegExpalternativeExpressionrsecondaryExpressionss r,r zHarmParser.parses)//??  )33556GHN >**A $#) H#o33NCCO #--//$) ]#/,-m,<) #899A'(Am$[>-*+K.' #677A%&AkNIr.N)rDrE)r1r2r3r4r0r>rCr r9r.r,rrsQ 8::DMMMr.rc&eZdZdZdZdZdZdS)Testcpgd}d}d|D}|t||dS)N)IIbIciiiibiiciiiiiibiiicIVIVbIVcVVbVcvivibvicviioviiobviioc)rTI6I64rWii6ii64rZiii6iii64r]IV6IV64r`V6V64rcvi6vi64rfviio6viio64c,g|]}t|Sr9r-.0xs r, z#Test.testTriads..s!AAA)!,,AAAr. assertEqualtuple)rB harmTriads groundTruth romanTriadss r, testTriadszTest.testTriadssT    BAjAAA  {++[99999r.cpgd}d}d|D}|t||dS)N)I7I7bI7cI7dii7ii7bii7cii7diii7iii7biii7ciii7dIV7IV7bIV7cIV7dV7V7bV7cV7dvi7vi7bvi7cvi7dviio7viio7bviio7cviio7d)rI65I43I2rii65ii43ii2riii65iii43iii2rIV65IV43IV2rV65V43V2rvi65vi43vi2rviio65viio43viio2c,g|]}t|Sr9rxrys r,r|z%Test.testSevenths..s!EEE1+A..EEEr.r})rB harmSeventhsr romanSeventhss r, testSeventhszTest.testSevenths sT    FE EEE  }--{;;;;;r.cpgd}d}d|D}|t||dS)N)NNbNcr LtbLtcr FrbFrcFrdrGnbGncGnd)rN6N64r It6It64Fr7Fr65Fr43Fr2Ger7Ger65Ger43Ger2c,g|]}t|Sr9rxrys r,r|z*Test.testSpecialChords..-s!OOO033OOOr.r})rBharmSpecialChordsrromanSpecialChordss r,testSpecialChordszTest.testSpecialChords sX     PO=NOOO 122K@@@@@r.cpgd}d}d|D}|t||dS)N)z-IIbz--IIc#IV7z##IV7b)z-II6z--II64rz##IV65c,g|]}t|Sr9rxrys r,r|z(Test.testAlterations..7s!KKKa.q11KKKr.r})rBharmAlterationsrromanAlterationss r,testAlterationszTest.testAlterations0sV    LK?KKK /00+>>>>>r.N)r1r2r3rrrrr9r.r,rRrRsS:::.<<<,AAA ?????r.rR__main__)r4 __future__rr<typingtunittestr-r0rTestCaserRr1music21mainTestr9r.r,rs #""""" ^G^G^GBMMMMMMMM`((((((((VG?G?G?G?G?8 G?G?G?T zNNNGTr.