diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/apprends-latex/exemples/beamer-themes.pl')
-rw-r--r-- | Master/texmf-dist/doc/latex/apprends-latex/exemples/beamer-themes.pl | 140 |
1 files changed, 140 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/apprends-latex/exemples/beamer-themes.pl b/Master/texmf-dist/doc/latex/apprends-latex/exemples/beamer-themes.pl new file mode 100644 index 00000000000..b33aa0a6ea2 --- /dev/null +++ b/Master/texmf-dist/doc/latex/apprends-latex/exemples/beamer-themes.pl @@ -0,0 +1,140 @@ +#! /usr/pkg/bin/perl + +use strict ; +use warnings ; + +use IO::File ; + +my @themes = qw( default AnnArbor Antibes Bergen Berkeley Berlin + Boadilla CambridgeUS Copenhagen Darmstadt Dresden Frankfurt + Goettingen Hannover Ilmenau JuanLesPins Luebeck Madrid + Malmoe Marburg Montpellier PaloAlto Pittsburgh Rochester + Singapore Szeged Warsaw ) ; +#boxes + +# génération des fichiers de démonstration de chaque thème + +foreach my $theme ( @themes ) +{ + my $fichier ; + + $fichier = IO::File->new ( ) ; + if ( $fichier->open ( ">beamer-theme-$theme-1.tex" ) ) + { + print $fichier ( << "FIN" ) ; +\\documentclass{beamer} + +\\usepackage[french]{babel} +\\usepackage[T1]{fontenc} +\\usepackage[utf8]{inputenc} +\\usepackage{lmodern} +\\usepackage{microtype} + +\\usetheme{$theme} +\\setbeamercolor{background canvas}{bg=black!5} + +\\title{Mon oncle Anatole} +\\subtitle{Sa vie, son œuvre} +\\author{Séraphin Lampion} +\\institute{Assurances Mondass} +\\date{23 octobre 2009} + +\\begin{document} + +\\begin{frame} + +\\titlepage + +\\end{frame} + +\\end{document} +FIN + + $fichier->close ( ) ; + } + else + { + warn ( "Impossible d'ouvrir beamer-theme-$theme-1.tex en écriture : $!\n" ) ; + } + + $fichier = IO::File->new ( ) ; + if ( $fichier->open ( ">beamer-theme-$theme-2.tex" ) ) + { + print $fichier ( << "FIN" ) ; +\\documentclass{beamer} + +\\usepackage[french]{babel} +\\usepackage[T1]{fontenc} +\\usepackage[utf8]{inputenc} +\\usepackage{lmodern} +\\usepackage{microtype} + +\\usetheme{$theme} +\\setbeamercolor{background canvas}{bg=black!5} + +\\title{Mon oncle Anatole} +\\subtitle{Sa vie, son œuvre} +\\author{Séraphin Lampion} +\\institute{Assurances Mondass} +\\date{23 octobre 2009} + +\\begin{document} + +\\begin{frame} + +\\frametitle{Les meilleures histoires de mon oncle Anatole} + +Mon oncle Anatole était coiffeur. Ah ! vous auriez dû le +connaître, celui-là... Un blagueur comme on n'en fait plus ! +Toujours à raconter des histoires à se taper sur les cuisses... + +Voici quelques-unes de ses histoires : + +\\begin{itemize} + +\\item celle qui se passe dans un train + +\\item celle du monsieur qui entre dans un café et qui commande + un verre de bière + +\\end{itemize} + +\\end{frame} + +\\end{document} +FIN + + $fichier->close ( ) ; + } + else + { + warn ( "Impossible d'ouvrir beamer-theme-$theme-2.tex en écriture : $!\n" ) ; + } +} + +# génération du fichier permettant l'inclusion des exemples + +my $fichier = IO::File->new ( ) ; +if ( $fichier->open ( '>beamer-themes.tex' ) ) +{ + foreach my $theme ( @themes ) + { + print $fichier ( << "FIN" ) ; +\\begin{figure}[!htbp] +\\centering +\\beamerdouble{beamer-theme-$theme-1.pdf}{beamer-theme-$theme-2.pdf} +\\caption{Exemple de présentation réalisée avec la classe +\\classe{beamer} et le thème \\theme{$theme}} +\\label{figure:beamer-$theme} +\\beamerthemeindex{$theme} +\\end{figure} + +FIN + } + + $fichier->close ( ) ; +} +else +{ + warn ( "Impossible d'ouvrir beamer-themes.tex en écriture : $!\n" ) ; +} |