Améliorations accords

diff --git a/gtx2tex.pl b/gtx2tex.pl
index d5a595b..372d6ca 100644 (file)
--- a/gtx2tex.pl
+++ b/gtx2tex.pl
@@ -249,8 +249,9 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
         # Accord Majeur7
        s/(gtxchord\{[A-G][B#]?)MAJ7/\1$majeur_sept/g;
 
-        # Accord suivi d'un bémol ou dièse optionel, suivi de 'sus' + 1 chiffre.
+        # Accord suivi d'un bémol ou dièse optionel, suivi de 'sus' ou 'add' + 1 chiffre.
        s/(gtxchord\{[A-G][B#]?[0-9]?)SUS([0-9]+)/\1\$^{sus\2}\$/g;
+       s/(gtxchord\{[A-G][B#]?[0-9]?)ADD([0-9]+)/\1\$^{add\2}\$/g;
 
         # Accord demi-diminué
         # Accord, suivi d'un bémol ou dièse optionel, suivi de 'm7b5'.
@@ -263,6 +264,7 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
        s/(gtxchord\{[A-G][B#]?)DIM/\1$diminished/g;
 
         # Accords mineurs
+       s/(gtxchord\{[A-G][B#]?)M7#([0-9]+)/\1m\$^{7\\sharp\2}\$/g; # Accord Am7#5
        s/(gtxchord\{[A-G][B#]?)M7/\1$mineur7/g;                 # Cm7
        s/(gtxchord\{[A-G][B#]?)M([0-9]+)/\1$mineur\$^{\2}\$/g;  # Cm13
        s/(gtxchord\{[A-G][B#]?)M/\1$mineur/g;                   # Cm (doit être en dernier)
@@ -270,8 +272,11 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
         # Accord A7b5 ou A7b9
        s/(gtxchord\{[A-G][B#]?)([0-9])B([0-9])/\1\$^{\2\\flat\3}\$/g;
 
-        # Accord A7 ou A6 ou Ab6
-       s/(gtxchord\{[A-G][B#]?)([0-9]?)/\1\$^{\2}\$/g;
+       # Accord A7#5 ou A7#9
+       s/(gtxchord\{[A-G][B#]?)([0-9])#([0-9])/\1\$^{\2\\sharp\3}\$/g;
+
+        # Accord A7 ou A6 ou Ab6 ou Ab13
+       s/(gtxchord\{[A-G][B#]?)([0-9]*)/\1\$^{\2}\$/g;
 
        s/(gtxchord\{[A-G])B/\1$flat/g;   # Remplace 'gtxchord{AB'  par 'gtxchord{Ab'