From 712515dd8d5fdf58ab40ecee322809c040d8154c Mon Sep 17 00:00:00 2001 From: Hugo Villeneuve Date: Mon, 6 Dec 2021 22:24:14 -0500 Subject: [PATCH] Ajout commentaires --- gtx2tex.pl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/gtx2tex.pl b/gtx2tex.pl index 55f236f..b06e354 100644 --- a/gtx2tex.pl +++ b/gtx2tex.pl @@ -161,25 +161,25 @@ sub create_pdf { sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei - if ( $lyrics ){ - s/\[.*?\]//g; # Akkorde entfernen + if ( $lyrics ) { + s/\[.*?\]//g; # Akkorde entfernen / On enlève les accords print TEX "$_\\\\\n" unless ( /^\s*$/ ); } else { - s/\s/$space/g; # alle Leerzeichen durch feste Leerzeichen ersetzen - s/(\^)(.*?)(\])/\\\(^\{\2\}\\\)\]/g; # Ziffern hochstellen + s/\s/$space/g; # Remplace une séquence de plusieurs espaces par un seul + s/(\^)(.*?)(\])/\\\(^\{\2\}\\\)\]/g; # Ziffern hochstellen / Place les chiffres en haut? - s/\[/\}\\gtxchord{/g; # linke Klammer ersetzen - s/\]/}{/g; # rechte Klammer ersetzen - # s/(\})(.*?)(\\)/}{\2}\\/g; # Text zwischen Akkorden in geschweifte Klammern setzen + s/\[/\}\\gtxchord{/g; # linke Klammer ersetzen / Remplace crochet gauche + s/\]/}{/g; # rechte Klammer ersetzen / Remplace crochet droit + # s/(\})(.*?)(\\)/}{\2}\\/g; # Text zwischen Akkorden in geschweifte Klammern setzen s/$/}/; # rechte Klammer am Ende der Zeile ergänzen s/^\}//; # rechte Klammer am Anfang der Zeile entfernen if ( $_ !~ /^\\/ ) { s/^/\\gtxchord\{\}\{/ } - s/#/$sharp/g; # Vorzeichen "#" ersetzen - s/\{Ab/{A$flat/g; # Vorzeichen "b" ersetzen + s/#/$sharp/g; # Remplace le symbole '#' par le symbole diese + s/\{Ab/{A$flat/g; # Remplace le 'b' de l'accord par le symbole bemol s/\{Bb/{B$flat/g; s/\{Cb/{C$flat/g; s/\{Db/{D$flat/g; -- 2.20.1