Sous-titre en petits caractères

diff --git a/gtx2tex.pl b/gtx2tex.pl
index 0744e01..1a562bc 100644 (file)
--- a/gtx2tex.pl
+++ b/gtx2tex.pl
@@ -331,8 +331,20 @@ sub directive{
         $verbose && print TEX "\\typeout{$song_title}";
     }elsif ( /{subtitle:|{st:/ ) {
         s/(\{.*:)(.+)(\})/\2/;
+
         print TEX "\\index{$_!$song_title}";
+        print TEX "\\normalfont\n";
+        print TEX "\\footnotesize\n";
         print TEX "\\begin{center}$_\\end{center}\n";
+        print TEX "\\normalsize\n";
+
+        if ( $bold ) {
+            print TEX "\\bfseries\n";
+        }
+        else
+        {
+            print TEX "\\normalfont\n";
+        }
     }elsif ( /{margin:|{m:/ ) {
         s/(\{.*:)(.+)(\})/\2/;
         print TEX "\\marginpar{$_}\n";