3j*dZddlmZddlZddlZddlZdZGddZGddZ Gd d ejZ e d k(rddl Z e je yy) z Harmonic annotations from humdrum to `music21`. The `**harm` representation is described here: https://www.humdrum.org/rep/harm/ ) annotationsNc@tj|}|sy|ddk(r d}dg|d<n!|ddk(rd}n|dd k(r d }dg|d<n|d}d }|d r|d }d }|d r|d }d }|dr d|dvrd}|drgdj|d}nd}d }|dk(r|rdnd }n|dk(r|rdnd}n|dk(r|rdnd}n|dk(rd}g}|dr4|jd |d} | r|j| d| d} | rd } |rdj |} ||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 G/DATA/.local/lib/python3.12/site-packages/music21/humdrum/harmParser.pyconvertHarmToRomanr-sR <  g &D  F|t E[ f  f  E[fJ L,' M K[) I KSD$55  K.44T+5FGI!$C" A %D3 A %D4 A   K!!"%%   % %i&7 8!+.IIHH/0   . :Y FFcdeZdZdZdZdZdZdZdZdZ dZ d Z d ezezezezeze ze zd zZ y ) 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           Nr.r0c,eZdZdZeZdZddZy)rz1 Parses an expression in `**harm` syntax ctjtjjtj |_tjtjjtj |_y)N) recompilerdefsr8VERBOSE harmRegExpr6 impliedRegExp)selfs r,__init__zHarmParser.__init__sC**Z__%C%CRZZPZZ (?(?Lr.c|jj|}|r-|jd}|j|}|rd|d<|S|jj|}|rW|j}d|d<|d|d}|j|}||d<|d|d}|j|} | |d<|SiS)Nimplied_harmonyTr6Fr7r)rAmatch groupdictr r@) rBr8 impliedMatchimpliedHarmonymmatchHarmRegExpalternativeExpressionrsecondaryExpressionss r,r zHarmParser.parses))//? )3356GHN >*A#) H#oo33NCO#--/$) ]#/,-m,<) #89A'(Am$[>-*+K.' #67A%&AkNIr.N)returnzdict[str, t.Any])r1r2r3r4r0r>rCr r9r.r,rrs :DMr.rc$eZdZdZdZdZdZy)Testcgd}d}|Dcgc] }t|}}|jt||ycc}w)N)IIbIciiiibiiciiiiiibiiicIVIVbIVcVVbVcvivibvicviioviiobviioc)rSI6I64rVii6ii64rYiii6iii64r\IV6IV64r_V6V64rbvi6vi64reviio6viio64r- assertEqualtuple)rB harmTriads groundTruthx romanTriadss r, testTriadszTest.testTriadssH  7AAj)!,j A {+[9B;cgd}d}|Dcgc] }t|}}|jt||ycc}w)N)I7I7bI7cI7dii7ii7bii7cii7diii7iii7biii7ciii7dIV7IV7bIV7cIV7dV7V7bV7cV7dvi7vi7bvi7cvi7dviio7viio7bviio7cviio7d)rI65I43I2rii65ii43ii2riii65iii43iii2rIV65IV43IV2rV65V43V2rvi65vi43vi2rviio65viio43viio2rv)rB harmSeventhsrzr{ romanSeventhss r, testSeventhszTest.testSevenths sH  9EE 1+A. E }-{;Fr~cgd}d}|Dcgc] }t|}}|jt||ycc}w)N)NNbNcr LtbLtcr FrbFrcFrdrGnbGncGnd)rN6N64r It6It64Fr7Fr65Fr43Fr2Ger7Ger65Ger43Ger2rv)rBharmSpecialChordsrzr{romanSpecialChordss r,testSpecialChordszTest.testSpecialChords sM   >OO=N03=NO 12K@Pr~cgd}d}|Dcgc] }t|}}|jt||ycc}w)N)z-IIbz--IIc#IV7z##IV7b)z-II6z--II64rz##IV65rv)rBharmAlterationsrzr{romanAlterationss r,testAlterationszTest.testAlterations0sJ  Lr~N)r1r2r3r}rrrr9r.r,rQrQs:.<,A ?r.rQ__main__)r4 __future__rr<typingtunittestr-r0rTestCaserQr1music21mainTestr9r.r,rso # ^GBMM`((VG?8  G?T zGTr.