From: Hugo Villeneuve <hugo@hugovil.com>
Date: Thu, 5 May 2022 21:14:13 +0000 (-0400)
Subject: Améliorations accords
X-Git-Url: http://gitweb.hugovil.com/?a=commitdiff_plain;h=a77f43417abbff62a8cfe880129e53117ad35acb;p=musique%2Fhvguitartex.git

Améliorations accords
---

diff --git a/gtx2tex.pl b/gtx2tex.pl
index d5a595b..372d6ca 100644
--- 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'