#  (gH)   --  titre.prl  ;  TimeStamp (unix) : 17 Janvier 01 09:34

if ($#ARGV==-1) {
   print "\n  titre -- (gH) 2001 \n\n" ;
   print "    syntaxe  : titre mot1 [ [ ;] mot2 ...]\n" ;
   print "    exemple  : titre \"Rapport Complet ; --brouillon-- \"\n" ;
   print "    remarque : le ; signifie \"sur la ligne suivante\"\n" ;
   print "    vous pouvez alors utiliser titre.tex, titre.dvi, titre.ps... \n\n";
   exit( -1) ;
} ; # fin si sur le nombre d'arguments

$nbm = $#ARGV ; # nombre de mots au depart
$nbp = 0      ; # nombre de lignes de titre

# parcours de la ligne des arguments
# pour composer les lignes

$im  = 0   ; # indice de mot
$pc  = ""  ; # phrase courante
while ($im<=$nbm) {
  $mc = $ARGV[$im] ;  # mot courant
  if ($mc eq ";") { # on a vu le ;
      $nbp++ ;
      $phr[$nbp] = $pc ;
      $pc = "" ;
  } else { $pc .= " $mc" ;
  } ; # fin de si
  $im++;
} ; # fin de tant que
$nbp++ ;
$phr[$nbp] = $pc ;

print "\n Voici votre TITRE : \n" ;
$ip  = 0   ; # indice de phrase
while ($ip<=$nbp) {
  $pc = $phr[$ip] ;  # phrase courante
  print "         ".$pc."\n" ;
  $ip++ ;
} ; # fin de tant que
print "\n" ;

open(FS,">titre.tex") ;

###################################################################
print FS << 'FINTEX1' ;


%   (gH)   --  titre.tex  ;
%
\documentclass[a4paper,12pt]{book}
%
% r\'{e}glage des marges
%
\parindent 0cm
\parskip   0.3cm
%
\textheight=21.08cm
\textwidth=13.5cm
%
% pour les accents
%
\usepackage[french]{babel}
\usepackage[latin1]{inputenc}
%
% fonte pour le titre
%
\newfont{\tregros}{cmss17 scaled\magstep 3}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\begin{document}
% Page de titre
\begin{titlepage}
\thispagestyle{empty}
~\vspace{-3.54cm}~

{\huge { \hspace{-1.6cm}
\fbox{
 \raisebox{1.2cm}{ }
 \sc\textbf{ Gilles HUNAULT }
 \raisebox{-0.7cm}{ }
}
}~\hspace{1.0cm}~An 2004}

 \vspace{4.55cm}

\begin{center}%
\begin{tabular}{ccc}\\[4cm]
FINTEX1

$saut1 = "1.3" ; $saut2 = "8.0" ;
if ($nbp==3) { $saut2 = "1.3" } ;
print FS '&{\Huge\tregros '.$phr[1].' } & \\\\['.$saut1.'cm]'."\n" ;
print FS '&{\Huge\tregros '.$phr[2].'} &\\\\['."$saut2".'cm]'."\n" ;
if ($nbp==3) { $saut3 = "5" ;
print FS '&{\Huge\tregros '.$phr[3].'}  &\\\\['."$saut3".'cm]'."\n" ;
} ;

print FS << 'FINTEX2' ;
\hspace{0.8cm} & {\huge  \textit{Universit\'{e} d'Angers}} & \hspace{0.1cm}
\end{tabular}
\end{center}
\end{titlepage}
\end{document}
FINTEX2
###################################################################

close(FS) ;

system("cd ~/Tmp ; ldps titre ; xdv -s 10 titre ") ;