From a77f43417abbff62a8cfe880129e53117ad35acb Mon Sep 17 00:00:00 2001 From: Hugo Villeneuve Date: Thu, 5 May 2022 17:14:13 -0400 Subject: [PATCH] =?utf8?q?Am=C3=A9liorations=20accords?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- gtx2tex.pl | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) 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' -- 2.20.1