#! /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}{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" ) ;
}