rh*SrSSKJr SSKrSSKrSSKrSr"SS5r"SS5r "S S \R5r \ S :XaSSK r \ R"\ 5 gg) z Harmonic annotations from humdrum to `music21`. The `**harm` representation is described here: https://www.humdrum.org/rep/harm/ ) annotationsNc[5RU5nU(dgUSS:Xa SnS/US'O#USS:XaSnOUSS :Xa S nS/US'OUSnS nUS (aUS nS nUS (aUS nS nUS(a SUS;aSnUS(a/SQRUS5nOSnS nUS:Xa U(aSOS nO,US:Xa U(aSOSnOUS:Xa U(aSOSnOUS:XaSn/nUS(a?URS 5 USn U (a"URU S5 U Sn U (aM"S n U(aSR U5n X2-U-U-U -$)a 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 T/home/james-whalen/.local/lib/python3.13/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!+.IiIHH/0   . :Y FFcl\rSrSrSrSrSrSrSrSr Sr S r S r S \-\-\-\-\ -\ -\ -S -r S rg)HarmDefswz9 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____firstlineno____doc__rrootsrr rimplied alternativerharmExpression__static_attributes__r2r.r,r0r0ws J  EIII GKI           Nr.r0c6\rSrSrSr\"5rSrSSjrSr g)rz) Parses an expression in `**harm` syntax c [R"[RR[R 5Ul[R"[RR[R 5Ulg)N) recompilerdefsr;VERBOSE harmRegExpr9 impliedRegExp)selfs r,__init__HarmParser.__init__sC**Z__%C%CRZZPZZ (?(?Lr.cURRU5nU(a2UR5SnURU5nU(aSUS'U$URRU5nU(aWUR5nSUS'USbUSnURU5nXtS'USbUSnURU5n XS'U$0$)Nimplied_harmonyTr9Fr:r)rEmatch groupdictr rD) rFr; impliedMatchimpliedHarmonymmatchHarmRegExpalternativeExpressionrsecondaryExpressionss r,r HarmParser.parses))//? )3356GHN >*A#) H#oo33NCO#--/$) ]#/,-m,<) #89A'(m$[>-*+K.' #67A%&kNIr.)rDrEN)returnzdict[str, t.Any]) r3r4r5r6r7r0rBrGr r<r2r.r,rrs :DMr.rc,\rSrSrSrSrSrSrSrg)Testc/SQnSnUVs/sHn[U5PM nnUR[U5U5 gs snf)N)IIbIciiiibiiciiiiiibiiicIVIVbIVcVVbVcvivibvicviioviiobviioc)rZI6I64r]ii6ii64r`iii6iii64rcIV6IV64rfV6V64rivi6vi64rlviio6viio64r- assertEqualtuple)rF harmTriads groundTruthx romanTriadss r, testTriadsTest.testTriadssH  7AAj)!,j A {+[9B>c/SQnSnUVs/sHn[U5PM nnUR[U5U5 gs snf)N)I7I7bI7cI7dii7ii7bii7cii7diii7iii7biii7ciii7dIV7IV7bIV7cIV7dV7V7bV7cV7dvi7vi7bvi7cvi7dviio7viio7bviio7cviio7d)rI65I43I2rii65ii43ii2riii65iii43iii2rIV65IV43IV2rV65V43V2rvi65vi43vi2rviio65viio43viio2r})rF harmSeventhsrr romanSeventhss r, testSeventhsTest.testSevenths sH  9EE 1+A. E }-{;Frc/SQnSnUVs/sHn[U5PM nnUR[U5U5 gs snf)N)NNbNcr LtbLtcr FrbFrcFrdrGnbGncGnd)rN6N64r It6It64Fr7Fr65Fr43Fr2Ger7Ger65Ger43Ger2r})rFharmSpecialChordsrrromanSpecialChordss r,testSpecialChordsTest.testSpecialChords!sM   >OO=N03=NO 12K@Prc/SQnSnUVs/sHn[U5PM nnUR[U5U5 gs snf)N)z-IIbz--IIc#IV7z##IV7b)z-II6z--II64rz##IV65r})rFharmAlterationsrrromanAlterationss r,testAlterationsTest.testAlterations1sJ  Lrr2N) r3r4r5r6rrrrr<r2r.r,rWrWs:.<,A ?r.rW__main__)r7 __future__rr@typingtunittestr-r0rTestCaserWr3music21mainTestr2r.r,rsm # ^GBMM`((VG?8  G?T z Tr.