diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:57:53 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:57:53 +0000 |
commit | f96afa6bcdbb66348ea2966f6ae2c955846f43f7 (patch) | |
tree | 49ed75dda0b4d80ebceb638fdcc1c88d81bf83ec /Master | |
parent | eac6e95aa80139d2111d546bba2fc0b2108d189a (diff) |
lettre
git-svn-id: svn://tug.org/texlive/trunk@1033 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/texmf-dist/tex/latex/lettre/default.ins | 50 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/lettre/lettre.cls | 1525 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/lettre/obs.ins | 79 |
3 files changed, 1654 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/lettre/default.ins b/Master/texmf-dist/tex/latex/lettre/default.ins new file mode 100644 index 00000000000..73df42049c5 --- /dev/null +++ b/Master/texmf-dist/tex/latex/lettre/default.ins @@ -0,0 +1,50 @@ +% This file is part of the "lettre" package. +% This package is distributed under the terms of the LaTeX Project +% Public License (LPPL) described in the file lppl.txt. +% +% Denis Mégevand - Observatoire de Genève. +% +% Ce fichier fait partie de la distribution du paquetage "lettre". +% Ce paquetage est distribué sous les termes de la licence publique +% du projet LaTeX (LPPL) décrite dans le fichier lppl.txt. +% +% **************************************** +% * DEFINITIONS DE L'INSTITUT B.I.D.O.N * +% **************************************** +% +\address{B.I.D.O.N\\Rue des Mots\\80886 Sassonne-le-Creux} +\telephone{987.64.20} +\fax{987.75.31} +\lieu{Sassonne-le-Creux} +\francais +% +\def\pict@let@width{185}% +\def\pict@let@height{65}% +\def\pict@let@hoffset{0}% +\def\pict@let@voffset{0}% +\def\rule@hpos{-25}% +\def\rule@vpos{-15}% +\def\rule@length{10}% +\def\fromaddress@let@hpos{-10}% +\def\fromaddress@let@vpos{70}% +\fromaddress@let@width=69mm +\def\fromlieu@let@hpos{90}% +\def\fromlieu@let@vpos{62}% +\fromlieu@let@width=69mm +\def\toaddress@let@hpos{90}% +\def\toaddress@let@vpos{40}% +\toaddress@let@width=80mm +% +\def\pict@fax@width{185}% +\def\pict@fax@height{30}% +\def\pict@fax@hoffset{0}% +\def\pict@fax@voffset{0}% +\def\fromaddress@fax@hpos{-10}% +\def\fromaddress@fax@vpos{30}% +\fromaddress@fax@width=69mm +\def\faxstring@hpos{90}% +\def\faxstring@vpos{20}% +\faxstring@width=69mm% +\faxbox@width=170mm% +\toaddress@fax@width=69mm% +\fromname@fax@width=69mm% diff --git a/Master/texmf-dist/tex/latex/lettre/lettre.cls b/Master/texmf-dist/tex/latex/lettre/lettre.cls new file mode 100644 index 00000000000..391beed9614 --- /dev/null +++ b/Master/texmf-dist/tex/latex/lettre/lettre.cls @@ -0,0 +1,1525 @@ +% %NAME% : Lettre +% %AUTHOR% : Denis Mégevand - Observatoire de Genève +% %EMAIL% : Denis.Megevand@obs.unige.ch +% %VERSION% : v2.346 +%% +%% This is file `lettre.cls'. +%% +%% The original source files were: +%% +%% letter.cls - LaTeX 2e team +%% lettre.sty - D. Megevand +%% +%% +%% IMPORTANT NOTICE: +%% +%% This file is part of the "lettre" package. +%% This package is distributed under the terms of the LaTeX Project +%% Public License (LPPL) described in the file lppl.txt. +%% +%% Denis Mégevand - Observatoire de Genève. +%% +%% Ce fichier fait partie de la distribution du paquetage "lettre". +%% Ce paquetage est distribué sous les termes de la License Publique +%% du Projet LaTeX (LPPL) décrite dans le fichier lppl.txt. +%% +% +% **************************************** +% * PREAMBULE * +% **************************************** +% +\NeedsTeXFormat{LaTeX2e} +\RequirePackage{graphicx} +\ProvidesClass{lettre}[2002/07/22 v2.346] +\typeout{Copyleft Denis Megevand - Observatoire de Geneve}% +%% +\newcommand\@ptsize{} +\DeclareOption{10pt}{\renewcommand\@ptsize{0}} +\DeclareOption{11pt}{\renewcommand\@ptsize{1}} +\DeclareOption{12pt}{\renewcommand\@ptsize{2}} +\if@compatibility + \DeclareOption{twoside}{\@latexerr{No `twoside' layout for letters}% + \@eha} +\else + \DeclareOption{twoside}{\@twosidetrue} +\fi +\DeclareOption{oneside}{\@twosidefalse} +\DeclareOption{origdate}{\@origdatetrue\PackageWarningNoLine{lettre}{Mode `origdate'}} +\DeclareOption{draft}{\setlength\overfullrule{5pt}} +\DeclareOption{final}{\setlength\overfullrule{0pt}} +\DeclareOption{leqno}{\input{leqno.clo}} +\DeclareOption{fleqn}{\input{fleqn.clo}} +\DeclareOption{francais}{\def\defaultlanguage{francais}} +\DeclareOption{romand}{\def\defaultlanguage{romand}} +\DeclareOption{allemand}{\def\defaultlanguage{allemand}} +\DeclareOption{americain}{\def\defaultlanguage{americain}} +\DeclareOption{anglais}{\def\defaultlanguage{anglais}} +\if@compatibility +\else +\DeclareOption*{\PackageWarningNoLine{lettre}{Option inconnue : `\CurrentOption'}} +\fi +\newif\if@origdate\@origdatefalse +\newif\if@etiq\@etiqfalse +\ExecuteOptions{10pt,oneside,final,francais} +\ProcessOptions +\input{size1\@ptsize.clo} +% +% **************************************** +% * POLICES * +% **************************************** +% +\DeclareOldFontCommand{\rm}{\rmfamily}{\mathrm} +\DeclareOldFontCommand{\sl}{\slshape}{\@nomath\sl} +\DeclareOldFontCommand{\it}{\itshape}{\mathit} +\DeclareOldFontCommand{\sc}{\scshape}{\@nomath\sc} +\DeclareOldFontCommand{\bf}{\bfseries}{\mathbf} +\DeclareOldFontCommand{\sf}{\sffamily}{\mathsf} +\DeclareOldFontCommand{\tt}{\ttfamily}{\mathtt} +\DeclareRobustCommand*{\cal}{\@fontswitch{\relax}{\mathcal}} +\DeclareRobustCommand*{\mit}{\@fontswitch{\relax}{\mathnormal}} +% +% **************************************** +% * PARAGRAPHES : parametres * +% **************************************** +% +\lineskip 1pt% +\normallineskip 1pt% +\parskip .7em% +\parindent 0pt% +\topsep .2em% +\partopsep 0pt% +\itemsep .2em% +\renewcommand\baselinestretch{1} +% +\@lowpenalty 51\relax +\@medpenalty 151\relax +\@highpenalty 301\relax +\@beginparpenalty -\@lowpenalty +\@endparpenalty -\@lowpenalty +\@itempenalty -\@lowpenalty +% +% **************************************** +% * MISE-EN-PAGE : parametres * +% **************************************** +% +% suppression de l'offset vertical +\voffset -1in% +% marge sup. 25mm +\topmargin 25mm% +% sep. d'entete 4mm +\headheight 0pt% +\headsep 4mm% +% hauteur texte 250mm +\textheight 250mm% +% sep d'embase 9mm +\footskip 9mm% +% +% total vertical 25+4+250+9=288 mm, reste 9 mm sur A4 = 297 mm. +% +\footnotesep 5mm% +\marginparpush 1mm% +% +% suppression de l'offset horizontal +\hoffset -1in% +% marge gauche 25mm +\oddsidemargin 25mm% +\evensidemargin 25mm% +% largeur texte 160mm +\textwidth 160mm% +% sep. note lat. 4mm +\marginparsep 4mm% +% larg. note lat 15mm +\marginparwidth 15mm% +% +% total horizontal 25+160+4+15=204 mm, reste 6 mm sur A4 = 210 mm. +% +\skip\footins 4mm plus 2pt minus 4pt% +% +% ************************************************ +% * LE FORMAT LETTRE ET FAX DE * +% * L'OBSERVATOIRE DE GENEVE * +% ************************************************ +% +% ************************************************ +% * NEWCOUNTS, NEWDIMENS, NEWIFS, NEWWRITE * +% ************************************************ +% +\newcount\auxcount +\newcount\c@infos\c@infos=1\relax +\newcount\c@labelstart +\newcount\c@lettre +\newcount\c@telefax +\newcount\emailcount +\newcount\faxpage +\newcount\sigflag +\newcount\signum +% +\newdimen\letterwidth +\newdimen\openingspace +\newdimen\openingindent +\newdimen\lettermargin +\newdimen\listmargin +\newdimen\sigspace +\newdimen\ssigindent +\newdimen\ssigwidth +\newdimen\msigwidth +\newdimen\fromaddress@let@width +\newdimen\fromlieu@let@width +\newdimen\toaddress@let@width +\newdimen\fromaddress@fax@width +\newdimen\faxstring@width +\newdimen\faxbox@width +\newdimen\toaddress@fax@width +\newdimen\fromname@fax@width +% +\newif\if@letter\@lettertrue +\newif\if@detail\@detailfalse +% +\newwrite\@tensionaux +\newwrite\@dateaux +\newwrite\@etiqaux +\newwrite\@faxaux +% +% ************************************************ +% * MACROS INTERNES * +% ************************************************ +% +\def\t#1#2{\begin{list}{#1}{\setlength{\labelsep}{10pt}% + \setlength{\labelwidth}{\listmargin}% + \setlength{\leftmargin}{\listmargin}% + \setlength{\listparindent}{0pt}}% + \item #2% + \end{list}} +\def\detailledaddress{\@detailtrue}% +% +\def\stopletter{\vskip0ptplus1filll}% +\def\stopfax{\vskip0ptplus1filll}% +% +\def\resetopenenv{% + \faxpage=0\relax + \csname\defaultlanguage\endcsname + \def\concdecl{}% + \def\fromlocation{}% + }% +\def\resetcloseenv{ + \def\fromsig{}\def\fromssig{}\def\fromtsig{} + \ps@plain + \pagenumbering{arabic} + \onecolumn + \signum=0\relax + } +\def\resetauxenv{ + \def\auxflag{} + \auxcount=0\relax + \def\toref{}\def\fromref{} + \def\telexnum{}\def\ccpnum{} + } +\def\resetemailenv{ + \def\emailflag{} + \emailcount=0\relax + \def\@username{} + \def\ccittnum{}\def\internetnum{}\def\bitnetnum{}\def\telepacnum{}\def\decnetnum{} + } +% +% \@processto extrait \toname et \toaddress de l'environnement letter +% +\long\def\@processto#1{\@xproc #1\\@@@\ifx\toaddress\@empty + \else \@yproc #1@@@\fi}% +\long\def\@xproc #1\\#2@@@{\def\toname{#1}\def\toaddress{#2}}% +\long\def\@yproc #1\\#2@@@{\def\toaddress{#2}}% +% +\def\stopbreaks{\interlinepenalty \@M + \def\par{\@@par\nobreak}\let\\=\@nobreakcr + \let\vspace\@nobreakvspace}% +\def\@nobreakvspace{\@ifstar{\@nobreakvspacex}{\@nobreakvspacex}}% +\def\@nobreakvspacex#1{\ifvmode\nobreak\vskip #1\relax\else + \@bsphack\vadjust{\nobreak\vskip #1}\@esphack\fi}% +\def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}% +\def\startbreaks{\let\\=\@normalcr + \interlinepenalty 200\relax\def\par{\@@par\penalty -100\relax}}% +% +%************************************************************* +% MESSAGES ET AVERTISSSEMENTS * +%************************************************************* +% +% Envoyes a la console et dans le fichier de log +% +% On peut supprimer allumer ou eteindre en tout temps les +% messages d'informations par les commandes \infos et \noinfos. +% Les avertissements ne peuvent etre supprimes. +%************************************************************* +\def\infos{\c@infos=1\relax} +\def\noinfos{\c@infos=0\relax} +% +\def\ltypeout#1{{\let\protect\string\immediate\write16{#1}}}% +\def\l@@warning#1{\typeout{LETTRE WARNING: #1.}}% +\def\l@warning#1{\l@@warning{#1\on@line}}% +\def\l@@info#1{\ifnum\c@infos=1\typeout{LETTRE INFO: #1.}\fi}% +% +% ************************************************ +% * ETIQUETTES * +% ************************************************ +% +% La commande \startlabels suivante definit des pages +% A4 de 2 colonnes d'etiquettes avec 15 mm de marges +% gauche et droite sur chaque etiquette. +% Si l'on change le nombre d'etiquettes sur une page, +% il faut aussi modifier la routine \@startlabels +% +\def\startlabels{% +\baselineskip=0pt\lineskip=0pt% +\pagestyle{empty}% +\let\@texttop=\relax +\topmargin=0pt\headsep=0pt% +\oddsidemargin=15mm\evensidemargin=15mm% +% +% modifications des dimensions de la page a faire ici +% +\textheight=297mm\textwidth=180mm\columnsep=30mm% +\@colht=\textheight\@colroom=\textheight\vsize=\textheight +\small +\baselineskip=0pt\lineskip=0pt% +\boxmaxdepth=0pt% +\twocolumn\relax}% +% +% La commande \@startlabels suivante definit la position de la +% premiere etiquette sur la page, a partir de la valeur du +% compteur \c@labelstart. +% +\def\@startlabels{% +\l@@info{Position de la premiere etiquette: \the\c@labelstart}% +\ifnum\c@labelstart>\z@ + \ifnum\c@labelstart>16\relax + \l@@warning{Position de la premiere etiquette ignoree}% + \else + \@whilenum\c@labelstart>\@ne\do + {\immediate\write\@etiqaux{\string\mlabel{~\string\\~}}% + \advance\c@labelstart\m@ne}% + \fi% +\else + \l@@warning{Position de la premiere etiquette ignoree}% +\fi +}% +% +% La commande \mlabel fabrique une etiquette de 37 mm de hauteur, +% la largeur etant definie dans \startlabels (105mm-30mm de marges) +% chacune contenant 70 mm de texte au centre de l'etiquette. +\def\mlabel#1{\setbox0\vbox{\parbox[b]{70mm}{\rm\strut\ignorespaces #1}}% + \vbox to 37mm{\vskip5mmplus1fil \box0 \vskip5mmplus1fil}}% +% +% \makelabels demande a \begin{document} d'imprimer sur le fichier +% auxiliaire .etq l'ordre de preparer les etiquettes. +% Son argument optionnel definit quelle est la prochaine etiquette +% libre sur la page, de maniere a utiliser des feuilles deja +% partiellement utilisees. Dans ce cas, \begin{document} imprime +% autant d'etiquettes vides que necessaire. +% +\def\makelabels{% + \@etiqtrue + \l@@info{On demande des etiquettes}% + \@ifnextchar [{\i@makelabels}{\i@makelabels[1]}}% +\def\i@makelabels[#1]{\c@labelstart=#1}% +% +% **************************************** +% * ADAPTATIONS DES DEFAUTS * +% **************************************** +% +\def\institut#1{% + \l@@info{Fichier de defaut: #1.ins}% + \def\@institut{\makeatletter + \input{#1.ins}% + \makeatother}}% +% +% ************************************************ +% * ENVIRONNEMENTS LETTER ET FAX * +% ************************************************ +% +\long\def\letter#1{% + \rm + \global\advance\c@lettre\@ne + \l@@info{Lettre \the\c@lettre}% + \expandafter\ifx\csname newletter\the\c@lettre\endcsname\relax + \expandafter\def\csname letter\the\c@lettre\endcsname{2} + \else + \expandafter\def\csname letter\the\c@lettre\endcsname{% + \csname newletter\the\c@lettre\endcsname} + \fi + \ifodd\c@page% + \else + \if@twoside + \l@@info{Saut de page force pour commencer la lettre sur une page impaire.}% + \thispagestyle{empty} + \hbox{}\penalty-10000\relax + \fi + \fi + \c@page\@ne + \resetopenenv\resetcloseenv\resetauxenv\resetemailenv + \@lettertrue + \@institut + \let\opening=\letteropening + \interlinepenalty=200\relax + \@processto{#1} +}% +% +\def\endletter{\par + \ifdim\pagetotal < 50pt + \immediate\write\@tensionaux{% + \string\expandafter\string\def% + \string\csname\space newletter\the\c@lettre\string\endcsname{-2}}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 50pt}% + \l@@warning{ tension de page modifiee a -2, veuillez recompiler}% + \else + \ifdim\pagetotal < 90pt + \immediate\write\@tensionaux{% + \string\expandafter\string\def% + \string\csname\space newletter\the\c@lettre\string\endcsname{-4}}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 90pt}% + \l@@warning{ tension de page modifiee a -4, veuillez recompiler}% + \else + \ifdim\pagetotal < 130pt + \immediate\write\@tensionaux{% + \string\expandafter\string\def% + \string\csname\space newletter\the\c@lettre\string\endcsname{-5}}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 130pt}% + \l@@warning{ tension de page modifiee a -5, veuillez recompiler}% + \else + \ifdim\pagetotal < 170pt + \immediate\write\@tensionaux{% + \string\expandafter\string\def% + \string\csname\space newletter\the\c@lettre\string\endcsname{-6}}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 170pt}% + \l@@warning{ tension de page modifiee a -6, veuillez recompiler}% + \else + \ifdim\pagetotal < 210pt + \immediate\write\@tensionaux{% + \string\expandafter\string\def% + \string\csname\space newletter\the\c@lettre\string\endcsname{4}}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 210pt}% + \l@@warning{ tension de page modifiee a 4, veuillez recompiler}% + \else + \ifdim\pagetotal < 250pt + \immediate\write\@tensionaux{% + \string\expandafter\string\def% + \string\csname\space newletter\the\c@lettre\string\endcsname{6}}% + \l@@warning{Longueur de la derniere page : \the\pagetotal < 250pt}% + \l@@warning{ tension de page modifiee a 6, veuillez recompiler}% + \else + \immediate\write\@tensionaux{% + \string\expandafter\string\def% + \string\csname\space newletter\the\c@lettre\string\endcsname{% + \csname letter\the\c@lettre\endcsname}}% + \l@@info{Longueur de la derniere page : \the\pagetotal >= 250pt}% + \fi + \fi + \fi + \fi + \fi + \fi + \stopletter + \@@par\pagebreak\@@par + \if@etiq + \ifodd\c@page% + \else + \if@twoside + \l@@info{Saut de page force pour commencer les etiquettes sur une page impaire.}% + \thispagestyle{empty} + \hbox{}\penalty-10000\relax + \fi + \fi + \begingroup + \def\protect{\string}% + \let\\=\relax + \def\protect##1{\string##1\space}% + \immediate\write\@etiqaux{\string\mlabel{\toname + \\\toaddress}}% + \endgroup + \fi}% +% +\long\def\telefax#1#2{% + \rm + \global\advance\c@telefax\@ne + \l@@info{Telefax \the\c@telefax}% + \ifnum\c@telefax=\@ne + \else + \l@@warning{Un seul telefax par fichier, s.v.p.,} + \l@@warning{ sinon le nombre de pages du fax est incorrect !} + \fi + \ifodd\c@page% + \else + \if@twoside + \l@@info{Saut de page force pour commencer le telefax sur une page impaire.}% + \thispagestyle{empty} + \hbox{}\penalty-10000\relax + \fi + \fi + \c@page\@ne + \resetopenenv\resetcloseenv\resetauxenv\resetemailenv + \@letterfalse + \@institut + \def\tofaxnum{#1}% + \let\opening=\faxopening + \interlinepenalty=200\relax + \makeatletter + \@input{\jobname.fax}% + \l@@info{Lecture du fichier auxiliaire de fax: Nombre total de pages=\totalpages}% + \makeatother + \@processto{#2} +}% +% +\def\endtelefax{% + \stopfax + \begingroup + \advance\faxpage by\c@page + \def\protect{\string}% + \let\\=\relax + \def\protect##1{\string##1\space}% + \immediate\openout\@faxaux=\jobname.fax% + \immediate\write\@faxaux{\string\def\string\totalpages{\the\faxpage}}% + \if\totalpages\the\faxpage\else + \l@@warning{Le nombre de pages du fax a change, }% + \l@@warning{(ancien=\totalpages, nouveau=\the\faxpage) }% + \l@@warning{ veuillez recompiler pour le corriger dans l'entete.}% + \fi + \endgroup + \@@par\pagebreak\@@par +}% +% +% ************************************************ +% * OPENING ET CLOSING * +% ************************************************ +% +\def\letteropening#1{% + \if@origdate + \expandafter\ifx\csname origdate\the\c@lettre + \endcsname\relax + \else + \l@@info{Date originale lue dans \jobname.odt}% + \def\pdate{\csname origdate\the\c@lettre\endcsname}% + \fi + \l@@info{`\pdate' ecrit dans \jobname.odt}% + \immediate\write\@dateaux{% + \string\expandafter\string\def% + \string\csname\space origdate\the\c@lettre + \string\endcsname{\pdate}}% + \fi + \hbadness=10000\relax + \thispagestyle{empty}% + \setlength{\unitlength}{1mm}% + \advance\rightskip -75pt% + \begin{picture}(\pict@let@width,\pict@let@height)% + (\pict@let@hoffset,\pict@let@voffset)% + \put(\rule@hpos,\rule@vpos){\line(1,0){\rule@length}}% + \put(\fromaddress@let@hpos,\fromaddress@let@vpos){\makebox(0,0)[tl]{% + \parbox[t]{\fromaddress@let@width}{% + \fromaddress\\[3mm]% + \ifx\@empty\fromlocation + \else \fromlocation \\% + \fi + \ifx\@empty\telephonenum + \else \tellabelname \telephonenum \\ + \fi + \ifx\@empty\faxnum + \else \faxlabelname \faxnum \\ + \fi + \ifx\@empty\emailnum + \else \mbox{\emaillabelname\ttfamily\emailnum} \\ + \fi}}} + \put(\fromlieu@let@hpos,\fromlieu@let@vpos){\makebox(0,0)[bl]{% + \parbox[t]{\fromlieu@let@width}{% + \ifx\@empty\fromlieu + \else\fromlieu, % + \fi + \ifx\@empty\pdate ~% + \else \pdate + \fi}}}% + \put(\toaddress@let@hpos,\toaddress@let@vpos){\makebox(0,0)[tl]{% + \parbox{\toaddress@let@width}{% + \toname\\\toaddress}}}% + \end{picture}% + \par\vskip\csname letter\the\c@lettre\endcsname mm + \advance\leftskip\lettermargin + \advance\rightskip75pt% + \ifx\@empty\auxflag + \vspace{2\openingspace}% + \else + \vspace{\openingspace}\auxline\vspace{\openingspace}% + \fi + \vskip\csname letter\the\c@lettre\endcsname mm + \ifx\@empty\concdecl + \vspace{\openingspace}% + \else + \concline\vspace{\openingspace}% + \fi + \vskip\csname letter\the\c@lettre\endcsname mm + \hbadness=1000\relax + {\parindent=\openingindent + #1}\par\startbreaks\nobreak + \let\flushleft=\letterflushleft + \let\raggedright=\letterraggedright + \let\center=\lettercenter + \let\centering=\lettercentering}% +% +\def\faxopening#1{% + \hbadness=10000\relax + \thispagestyle{empty}% + \setlength{\unitlength}{1mm}% + \advance\rightskip -75pt% + \begin{picture}(\pict@fax@width,\pict@fax@height) + (\pict@fax@hoffset,\pict@fax@voffset)% + \put(\fromaddress@fax@hpos,\fromaddress@fax@vpos){\makebox(0,0)[tl]{ + \parbox[t]{\fromaddress@fax@width}{\fromaddress}}}% + \put(\faxstring@hpos,\faxstring@vpos){\makebox(0,0)[bl]{% + \parbox[t]{\faxstring@width}{\telefaxstring}}} + \end{picture}\par% + \par\vspace{5mm}% + \makebox[\faxbox@width]{\scriptsize\telephonelabelname\telephonenum + \hfill\telefaxlabelname\faxnum + \ifx\@empty\emailnum\else\hfill\emaillabelname{\ttfamily\emailnum}\fi + \ifx\@empty\telexnum\else\hfill\telexlabelname\telexnum\fi}% + \par + \begin{tabular*}{\faxbox@width}[t]{l@{\hspace{5mm}}p{70mm}@{\hfill}r}% + \hline + \multicolumn{3}{@{}c@{}}{\vrule height 0pt depth 0pt width \faxbox@width}\\ + \headtoname + &\parbox[t]{\toaddress@fax@width}{\toname\\\toaddress}% + &\telefaxname\tofaxnum\\% + \\% + \headfromname + &\parbox[t]{\fromname@fax@width}{\ifx\@empty\fromlocation + \fromname + \else + \fromlocation + \fi}% + &\pagetotalname\totalpages\\% + \end{tabular*}\par% + \begin{tabular*}{\faxbox@width}[t]{@{\hfill}c@{\hfill}}% + \hline + \vrule height 3ex depth 7pt width 0pt\faxwarning\\% + \hline + \end{tabular*}\par% + \begin{tabular*}{\faxbox@width}[t]{@{}r@{}}% + \vrule height 0pt depth 0pt width \faxbox@width\\ + \multicolumn{1}{r}{\ifx\@empty\fromlieu + \else\fromlieu, % + \fi + \if@origdate + \expandafter\ifx\csname origdate\the\c@lettre + \endcsname\relax + \else + \l@@info{Date originale lue dans \jobname.odt}% + \def\pdate{\csname origdate\the\c@lettre\endcsname}% + \fi + \l@@info{`\pdate' ecrit dans \jobname.odt}% + \immediate\write\@dateaux{% + \string\expandafter\string\def% + \string\csname\space origdate\the\c@lettre + \string\endcsname{\pdate}}% + \fi + \ifx\@empty\pdate ~% + \else \pdate + \fi}\\% + \end{tabular*}% + \par + \vspace{\openingspace}% + \advance\leftskip \lettermargin + \advance\rightskip 75pt% + \ifx\@empty\concdecl + \vspace{\openingspace}% + \else + \concline\vspace{\openingspace}% + \fi + \hbadness=1000\relax + {\parindent=\openingindent + #1}\par\startbreaks\nobreak + \let\flushleft=\letterflushleft + \let\raggedright=\letterraggedright + \let\center=\lettercenter + \let\centering=\lettercentering}% +% +\long\def\closing#1{% + \let\center=\normalcenter + \let\centering=\normalcentering + \let\flushleft=\normalflushleft + \let\raggedright=\normalraggedright + \par\stopbreaks + \if@letter + \vskip\csname letter\the\c@lettre\endcsname mm + \fi + \par\vspace{2\parskip}% + \nobreak + \noindent + \l@@info{Signature \ifcase\signum manquante \or simple\or double\or triple\fi}% + \ifcase\sigflag + \ifcase\signum + \parbox[t]{\letterwidth}{#1}% + \par\vspace*{4\parskip}% + \vspace*{\sigspace}% + \hspace*{\ssigindent}% + \noindent + \parbox[t]{\ssigwidth}{\centering \ignorespaces\fromname}% + \or + \parbox[t]{\letterwidth}{#1}% + \par\vspace*{4\parskip}% + \vspace*{\sigspace}% + \hspace*{\ssigindent}% + \noindent + \parbox[t]{\ssigwidth}{\centering \ignorespaces\fromsig}% + \or + \parbox[t]{\letterwidth}{#1}% + \par\vspace*{4\parskip}% + \vspace*{\sigspace}% + \msigwidth=\letterwidth + \divide\msigwidth by 2\relax + \advance\msigwidth -3pt% + \noindent + \mbox{\parbox[t]{\msigwidth}{\centering\ignorespaces\fromsig}% + \parbox[t]{\msigwidth}{\centering\ignorespaces\fromssig}}% + \or + \parbox[t]{\letterwidth}{#1}% + \par\vspace*{4\parskip}% + \vspace*{\sigspace}% + \msigwidth=\letterwidth + \divide\msigwidth by 3\relax + \advance\msigwidth -3pt% + \noindent + \mbox{\parbox[t]{\msigwidth}{\centering\ignorespaces\fromsig}% + \parbox[t]{\msigwidth}{\centering\ignorespaces\fromssig}% + \parbox[t]{\msigwidth}{\centering\ignorespaces\fromtsig}}% + \fi + \or + \ifcase\signum + \hspace*{\ssigindent}% + \parbox[t]{\ssigwidth}% + {\centering \ignorespaces + #1% + \par\vspace*{4\parskip}% + \vspace*{\sigspace}% + \fromname}% + \or + \hspace*{\ssigindent}% + \parbox[t]{\ssigwidth}% + {\centering \ignorespaces + #1% + \par\vspace*{4\parskip}% + \vspace*{\sigspace}% + \fromsig}% + \or + \parbox[t]{\letterwidth}{#1}% + \par\vspace*{4\parskip}% + \vspace*{\sigspace}% + \msigwidth=\letterwidth + \divide\msigwidth by 2\relax + \advance\msigwidth -3pt% + \noindent + \mbox{\parbox[t]{\msigwidth}{\centering\ignorespaces\fromsig}% + \parbox[t]{\msigwidth}{\centering\ignorespaces\fromssig}}% + \or + \parbox[t]{\letterwidth}{#1}% + \par\vspace*{4\parskip}% + \vspace*{\sigspace}% + \msigwidth=\letterwidth + \divide\msigwidth by 3\relax + \advance\msigwidth -3pt% + \noindent + \mbox{\parbox[t]{\msigwidth}{\centering\ignorespaces\fromsig}% + \parbox[t]{\msigwidth}{\centering\ignorespaces\fromssig}% + \parbox[t]{\msigwidth}{\centering\ignorespaces\fromtsig}}% + \fi + \fi + \par\vfill\startbreaks +}% +% +% ************************************************ +% * COMMANDES UTILISATEURS * +% ************************************************ +% +\def\marge#1{% + \lettermargin=#1% + \listmargin=#1% + \leftmargini=\listmargin% + \advance\leftmargini 2.5em% + \letterwidth=\textwidth + \advance\letterwidth by -\lettermargin + \advance\letterwidth by 0pt}% +% +\def\basdepage#1{% + \def\bdp{#1}}% +% +\def\tension#1{% + \if@letter + \expandafter\def\csname letter\the\c@lettre\endcsname{#1}% + \fi +}% +% +\def\addpages#1{% + \l@@info{Pages additionnelles: #1}% + \advance\faxpage by #1}% +% +\def\name#1{\def\fromname{#1}}% +% +\def\signature#1{% + \ifnum\signum=0\relax + \def\fromsig{#1}\signum=1\relax + \else + \l@@warning{Signature deja definie}% + \fi +}% +\def\secondsignature#1{% + \ifnum\signum=1\relax + \def\fromssig{#1}\signum=2\relax + \else + \l@@warning{Seconde signature illegale ou deja definie}% + \fi +}% +\def\thirdsignature#1{% + \ifnum\signum=2\relax + \def\fromtsig{#1}\signum=3\relax + \else + \l@@warning{Troisieme signature illegale ou deja definie}% + \fi +}% +% +\def\vref#1{\l@@warning{La commande \string\Vref\ devrait etre utilisee.} + \def\auxflag{.}% + \def\toref{\parbox[t]{17mm}{#1}}}% +\def\Vref#1{\def\auxflag{.}% + \def\toref{\parbox[t]{17mm}{#1}}}% +\def\nref#1{\l@@warning{La commande \string\Nref~ devrait etre utilisee.} + \def\auxflag{.}% + \def\fromref{\parbox[t]{17mm}{#1}}}% +\def\Nref#1{\def\auxflag{.}% + \def\fromref{\parbox[t]{17mm}{#1}}}% +% +\def\concline{% + \noindent\parbox[t]{\letterwidth}% + {\@hangfrom{\textrm{\concname}}\ignorespaces\concdecl\strut}% + \par}% +% +\def\auxline{% + \l@@info{Ligne auxiliaire demandee}% + {\scriptsize + \vrefname% + \ifx\@empty \toref + \hspace{21mm}\hfill% + \else + {\small\toref}\hfill% + \fi + \nrefname% + \ifx\@empty \fromref + \hspace{21mm}\hfill% + \else + {\small\fromref}\hfill + \fi + \ifx\@empty \telexnum + \hfill% + \else + T\'ELEX\ \telexnum\hspace{5mm}% + \fi + \ifx\@empty \ccpnum + \hfill% + \else + C.C.P.\ \ccpnum\hspace{5mm}% + \fi}\par}% +% +\def\emailine{% + \l@@info{Ligne d'E-Mail demandee}% + {\scriptsize + \emaillabelname\hfill\ttfamily + \ifx\@empty \ccittnum + \else + \hfill \ccittnum\hfill + \fi + \ifx\@empty \internetnum + \else + \hfill \internetnum\hfill + \fi + \ifx\@empty \bitnetnum + \else + \hfill \bitnetnum\hfill + \fi + \ifx\@empty \telepacnum + \else + \hfill \telepacnum\hfill + \fi + \ifx\@empty \decnetnum + \else + \hfill \decnetnum\hfill + \fi + \ifnum\emailcount<3\relax + \hfill\mbox{}% + \fi}}% +% +\long\def\address#1{\l@@info{Adresse precisee}\def\fromaddress{#1}}% +%\long\def\address*#1{\if@letter +% \l@@info{Adresse avec nom precisee}% +% \def\fromaddress{\fromname\\#1} +% \else +% \l@@warning{Commande illegale dans un fax} +% \fi}% +% +\def\nodate{\l@@info{Date supprimee}\def\pdate{}}% +\def\date#1{\l@@info{Date precisee}\def\pdate{#1}}% +% +\def\nolieu{\l@@info{Lieu supprime}\def\fromlieu{}}% +\def\lieu#1{\l@@info{Lieu precise}\def\fromlieu{#1}}% +% +\def\conc#1{\l@@info{Champ d'objet defini}\def\concdecl{#1}}% +% +\def\location#1{\l@@info{Precision d'adresse definie}\def\fromlocation{#1}}% +% +\def\notelephone{\l@@info{Numero de telephone supprime}\def\telephonenum{}}% +\def\telephone#1{\l@@info{Numero de telephone precise}\def\telephonenum{#1}}% +% +\def\nofax{\l@@info{Numero de fax supprime}\def\faxnum{}}% +\def\fax#1{\l@@info{Numero de fax precise}\def\faxnum{#1}}% +% +\def\email#1{\l@@info{Numero d'E-Mail precise}\def\emailnum{#1}}% +% +\def\username#1{\def\@username{#1}}% +% +\def\ccitt#1{\ifnum\emailcount<3\relax + \def\emailflag{.}% + \advance\emailcount by 1\relax + \def\ccittnum{\ifx\@empty \@username + \l@@warning{<<username>> indefini} + #1% + \else + S=\@username;#1% + \fi}% + \else + \def\ccittnum{}% + \fi}% +\def\internet#1{\ifnum\emailcount<3\relax + \def\emailflag{.}% + \advance\emailcount by 1\relax + \def\internetnum{\ifx\@empty \@username + \l@@warning{<<username>> indefini} + #1\relax + \else + \@username @#1\relax + \fi}% + \else + \def\internetnum{}% + \fi}% +\def\bitnet#1{\ifnum\emailcount<3\relax + \def\emailflag{.}% + \advance\emailcount by 1\relax + \def\bitnetnum{\ifx\@empty \@username + \l@@warning{<<username>> indefini} + #1\relax + \else + \@username\ at #1\relax + \fi}% + \else + \def\bitnetnum{}% + \fi}% +\def\telepac#1{\ifnum\emailcount<3\relax + \def\emailflag{.}% + \advance\emailcount by 1\relax + \def\telepacnum{\ifx\@empty \@username + \l@@warning{<<username>> indefini} + #1\relax + \else + #1::\@username + \fi}% + \else + \def\telepacnum{}% + \fi}% +\def\decnet#1{\ifnum\emailcount<3\relax + \def\emailflag{.}% + \advance\emailcount by 1\relax + \def\decnetnum{\ifx\@empty \@username + \l@@warning{<<username>> indefini} + #1\relax + \else + #1::\@username + \fi}% + \else + \def\decnetnum{}% + \fi}% +\def\telex#1{\ifnum\auxcount<2\relax + \def\auxflag{.}% + \advance\auxcount by 1\relax + \def\telexnum{#1}% + \else + \def\telexnum{}% + \fi}% +\def\ccp#1{\ifnum\auxcount<2\relax + \def\auxflag{.}% + \advance\auxcount by 1\relax + \def\ccpnum{#1}% + \else + \def\ccpnum{}% + \fi}% +% +\def\ps#1#2{\penalty100\relax + \if@letter + \vskip\csname letter\the\c@lettre\endcsname mm + \fi + \l@@info{Post-scriptum defini}% + \noindent\t{#1}{#2\\}\vfill\penalty-100\relax}% +% +\def\cc#1{\penalty100\relax + \if@letter + \vskip\csname letter\the\c@lettre\endcsname mm + \fi + \l@@info{Copies declarees}% + \noindent\t{\ccname}{#1\\}\vfill\penalty-100\relax}% +% +\def\encl#1{\penalty100\relax + \if@letter + \vskip\csname letter\the\c@lettre\endcsname mm + \fi + \l@@info{Annexes declarees}% + \noindent\t{\enclname}{#1\\}\vfill\penalty-100\relax}% +\def\mencl{\penalty100\relax + \if@letter + \vskip\csname letter\the\c@lettre\endcsname mm + \fi + \l@@info{Annexes mentionnees}% + \noindent\t{\mentionname\\}{~}\vfill\penalty-100\relax}% +% +% **************************************** +% * DEFINITIONS DEPENDANT DU LANGAGE * +% **************************************** +% +\def\FAXSTR{\fontfamily{cmdh}\fontseries{m}\fontshape{n}\selectfont}% +\def\FRANCAIS{francais} +\def\francais{% + \ifx\defaultlanguage\FRANCAIS\else\l@@info{Langage modifie: francais}\fi% + \ifx\undefined\frenchname\else % style french loaded + \french + \fi + \ifx\undefined\extrasfrancais\else % style babel and French language loaded + \selectlanguage{francais} + \reset@frenchitemize + \fi + \sigflag=0\relax + \def\cejour{le + \ifx\ier\undefined\def\ier{er}\fi + \ifnum\day=1\relax 1\ier\else \number\day\fi + \space\ifcase\month\or + janvier\or f\'evrier\or mars\or avril\or mai\or juin\or + juillet\or ao\^ut\or septembre\or octobre\or novembre\or d\'ecembre\fi + \space \number\year}% + \def\faxwarning{\large\slshape\bfseries En cas de mauvaise transmission, + appelez s.v.p. l'op\'erateur t\'el\'efax}% + \def\telefaxstring{{\FAXSTR T~\'E~L~\'E~F~A~X}}% + \def\telephonelabelname{T\'EL\'EPHONE :~}% + \def\telefaxlabelname{T\'EL\'EFAX :~}% + \def\telefaxname{T\'el\'ecopie :~}% + \def\tellabelname{T\'el.~}% + \def\faxlabelname{Fax :~}% + \def\emaillabelname{E-Mail :~}% + \def\telexlabelname{T\'ELEX :~}% + \def\headtoname{\`A :~}% + \def\headfromname{De :~}% + \def\pagetotalname{Nombre de pages :~}% + \def\concname{Objet :~}% + \def\ccname{C.c.~}% + \def\enclname{P.j.~}% + \def\mentionname{Annexe(s) mentionn\'ee(s)}% + \def\vrefname{V.\raise.4ex\hbox{\tiny /}r\'ef.~} + \def\nrefname{N.\raise.4ex\hbox{\tiny /}r\'ef.~} +}% +\def\ROMAND{romand} +\def\romand{% + \ifx\defaultlanguage\ROMAND\else\l@@info{Langage modifie: romand}\fi% + \ifx\undefined\frenchname\else % style french loaded + \french + \fi + \ifx\undefined\extrasfrancais\else % style babel and French language loaded + \selectlanguage{francais} + \reset@frenchitemize + \fi + \sigflag=0\relax + \def\cejour{le + \ifx\ier\undefined\def\ier{er}\fi + \ifnum\day=1\relax 1\ier\else \number\day\fi + \space\ifcase\month\or + janvier\or f\'evrier\or mars\or avril\or mai\or juin\or + juillet\or ao\^ut\or septembre\or octobre\or novembre\or d\'ecembre\fi + \space \number\year}% + \def\faxwarning{\large\slshape\bfseries En cas de mauvaise transmission, + appelez s.v.p. l'op\'erateur t\'el\'efax}% + \def\telefaxstring{{\FAXSTR T~\'E~L~\'E~F~A~X}}% + \def\telephonelabelname{T\'EL\'EPHONE :~}% + \def\telefaxlabelname{T\'EL\'EFAX :~}% + \def\telefaxname{T\'el\'efax :~}% + \def\tellabelname{T\'el.~}% + \def\faxlabelname{Fax :~}% + \def\emaillabelname{E-Mail :~}% + \def\telexlabelname{T\'ELEX :~}% + \def\headtoname{\`A :~}% + \def\headfromname{De :~}% + \def\pagetotalname{Nombre de pages :~}% + \def\concname{Concerne :~}% + \def\ccname{C.c.~}% + \def\enclname{Ann.~}% + \def\mentionname{Annexe(s) mentionn\'ee(s)}% + \def\vrefname{V.\raise.4ex\hbox{\tiny /}r\'ef.~} + \def\nrefname{N.\raise.4ex\hbox{\tiny /}r\'ef.~} +}% +\def\ANGLAIS{anglais} +\def\anglais{% + \ifx\defaultlanguage\ANGLAIS\else\l@@info{Langage modifie: anglais}\fi% + \ifx\undefined\frenchname\else % style french loaded + \english + \fi + \ifx\undefined\extrasenglish\else % style babel and English language loaded + \selectlanguage{english} + \fi + \sigflag=1\relax + \def\cejour{\ifcase\month\or + January\or February\or March\or April\or May\or June\or + July\or August\or September\or October\or November\or December\fi + \space\number\day ,\space\number\year}% + \def\faxwarning{\large\slshape\bfseries If improperly transmitted, please + call the telefax operator}% + \def\telefaxstring{{\FAXSTR T~E~L~E~F~A~X}}% + \def\telephonelabelname{TELEPHONE:~}% + \def\telefaxlabelname{TELEFAX:~}% + \def\telefaxname{Telefax:~}% + \def\tellabelname{Tel:~}% + \def\faxlabelname{Fax:~}% + \def\emaillabelname{E-Mail:~}% + \def\telexlabelname{TELEX:~}% + \def\headtoname{To:~}% + \def\headfromname{From:~}% + \def\pagetotalname{Total pages:~}% + \def\concname{Subject:~}% + \def\ccname{Cc:~}% + \def\enclname{Encl(s):~}% + \def\mentionname{Encl(s).}% + \def\vrefname{Y.\raise.4ex\hbox{\tiny /}ref.~} + \def\nrefname{O.\raise.4ex\hbox{\tiny /}ref.~} +}% +\def\AMERICAIN{americain} +\def\americain{% + \ifx\defaultlanguage\AMERICAIN\else\l@@info{Langage modifie: americain}\fi% + \ifx\undefined\frenchname\else % style french loaded + \english + \fi + \ifx\undefined\extrasenglish\else % style babel and English language loaded + \selectlanguage{english} + \fi + \sigflag=1\relax + \def\cejour{\ifcase\month\or + January\or February\or March\or April\or May\or June\or + July\or August\or September\or October\or November\or December\fi + \space\number\day ,\space\number\year}% + \def\faxwarning{\large\slshape\bfseries If improperly transmitted, please + call the telefax operator}% + \def\telefaxstring{{\FAXSTR T~E~L~E~F~A~X}}% + \def\telephonelabelname{PHONE:~}% + \def\telefaxlabelname{TELEFAX:~}% + \def\telefaxname{Telefax:~}% + \def\tellabelname{Phn:~}% + \def\faxlabelname{Fax:~}% + \def\emaillabelname{E-Mail:~}% + \def\telexlabelname{TELEX:~}% + \def\headtoname{To:~}% + \def\headfromname{From:~}% + \def\pagetotalname{Total pages:~}% + \def\concname{Re:~}% + \def\ccname{Cc:~}% + \def\enclname{Encl(s):~}% + \def\mentionname{Encl(s).}% + \def\vrefname{Y.\raise.4ex\hbox{\tiny /}ref.~} + \def\nrefname{O.\raise.4ex\hbox{\tiny /}ref.~} +}% +\def\ALLEMAND{allemand} +\def\allemand{% + \ifx\defaultlanguage\ALLEMAND\else\l@@info{Langage modifie: allemand}\fi% + \ifx\undefined\extrasgerman\else % style babel and German language loaded + \selectlanguage{german} + \fi + \sigflag=1\relax + \def\cejour{den \number\day .\space\ifcase\month\or + Januar\or Februar\or M\"arz\or April\or Mai\or Juni\or + Juli\or August\or September\or Oktober\or November\or Dezember\fi + \space \number\year}% + \def\concname{Betrifft: }% + \def\faxwarning{\large\slshape\bfseries Bitte unrichtige \"Ubertragungen dem + Sender telefonisch melden}% + \def\telefaxstring{{\FAXSTR T~E~L~E~F~A~X}}% + \def\telephonelabelname{TELEFON:~}% + \def\telefaxlabelname{TELEFAX:~}% + \def\telefaxname{Telefax:~}% + \def\tellabelname{Tel:~}% + \def\faxlabelname{Fax:~}% + \def\emaillabelname{E-Mail:~}% + \def\telexlabelname{TELEX:~}% + \def\headtoname{An:~}% + \def\headfromname{Von:~}% + \def\pagetotalname{Gesamtanzahl der Bl\"atter:~}% + \def\concname{Betrifft:~}% + \def\ccname{Kopie an:~}% + \def\enclname{Beilage(n):~}% + \def\mentionname{Beilage(n) erw\"ahnt}% + \def\vrefname{Ihr Zeichen~} + \def\nrefname{Unser Zeichen~} +}% +% +%************************************************************************ +% +% \document redefini pour ecrire '\startlabels' sur le fichier .etq +% et executer \@startlabels. +% +%************************************************************************ +% +\AtBeginDocument{% + \makeatletter + \@input{\jobname.tns}% + \@input{\jobname.odt}% + \begingroup\@floatplacement\@dblfloatplacement + \immediate\openout\@tensionaux=\jobname.tns% + \if@origdate + \immediate\openout\@dateaux=\jobname.odt% + \fi + \endgroup + \if@etiq + \immediate\openout\@etiqaux=\jobname.etq% + \immediate\write\@etiqaux{\string\startlabels}% + \@startlabels + \fi + \makeatother +}% +% +%************************************************************************ +% +% \enddocument redefini pour sortir la page d'etiquettes, si necessaire. +% +%************************************************************************ +% +\AtEndDocument{% + \l@@info{Nombre de lettres :\the\c@lettre}% + \l@@info{Nombre de telefax :\the\c@telefax}% + \newpage\begingroup + \immediate\closeout\@tensionaux% + \if@origdate + \immediate\closeout\@dateaux% + \fi + \if@letter + \if@etiq + \immediate\closeout\@etiqaux% + \makeatletter + \@input{\jobname.etq}% + \makeatother + \clearpage + \fi + \else + \immediate\closeout\@faxaux% + \fi + \endgroup +}% +% +% **************************************** +% * STYLES DE PAGE * +% **************************************** +% +% +\def\@texttop{\ifnum\c@page=1\vskip 0pt plus .00001fil\relax\fi}% +% +\if@twoside + \def\ps@headings{% + \headheight 12pt% + \headsep 25pt% + \def\@oddhead{{\hspace{15mm}\ifx\@empty\fromlieu\else\fromlieu , \fi + \pdate\hfill Page \thepage}}% + \def\@oddfoot{}% + \def\@evenhead{{Page \thepage\hfill\ifx\@empty\fromlieu\else\fromlieu , \fi + \pdate\hspace{15mm}}}% + \def\@evenfoot{}}% +\else + \def\ps@headings{% + \headheight 12pt% + \headsep 25pt% + \def\@oddhead{{\hspace{15mm}\ifx\@empty\fromlieu\else\fromlieu , \fi + \pdate\hfill Page \thepage}}% + \def\@oddfoot{}% + \def\@evenhead{}% + \def\@evenfoot{}}% +\fi +% +\def\ps@empty{% + \headheight 0pt% + \headsep 9pt% + \def\@oddhead{}% + \def\@oddfoot{% + \ifnum\c@page=1\relax + \ifx\@empty\emailflag + \ifx\@empty\bdp + \else + \hbadness=10000\relax + \rlap{\parbox{\textwidth}{\mbox{}\\\rule{\textwidth}{.4pt}\\\bdp}} + ~\hfill~ + \hbadness=1000\relax + \fi + \else + \hbadness=10000\relax + \rlap{\parbox{\textwidth}{\mbox{}\\\rule{\textwidth}{.4pt}\\\emailine}}% + ~\hfill~ + \hbadness=1000\relax + \fi + \fi}% + \def\@evenhead{}% + \def\@evenfoot{}}% +% +\def\ps@firstpage{% + \headheight 12pt% + \headsep 25pt% + \def\@oddhead{}% + \def\@oddfoot{}% + \def\@evenhead{}% + \def\@evenfoot{}}% +% +\def\ps@plain{% + \headheight 0pt% + \headsep 9pt% + \def\@oddhead{}% + \def\@oddfoot{\textrm{\hfill\thepage\hfill}}% + \def\@evenhead{}% + \def\@evenfoot{\textrm{\hfill\thepage\hfill}}}% +% +% **************************************** +% * CENTER et FLUSHLEFT * +% **************************************** +% +\def\normalcenter{\trivlist \normalcentering\item[]}% +\def\lettercenter{\trivlist \lettercentering\item[]}% +\def\normalcentering{\let\\=\@centercr\rightskip\@flushglue + \leftskip\@flushglue + \parindent\z@\parfillskip\z@}% +\def\lettercentering{\let\\=\@centercr\rightskip\@flushglue + \leftskip\@flushglue\advance\leftskip\lettermargin + \parindent\z@\parfillskip\z@}% +\let\endcenter=\endtrivlist +% +\def\normalflushleft{\trivlist \normalraggedright\item[]}% +\def\letterflushleft{\trivlist \letterraggedright\item[]}% +\def\normalraggedright{\let\\=\@centercr\leftskip\z@ + \@rightskip\@flushglue\rightskip\@rightskip + \parindent\z@}% +\def\letterraggedright{\let\\=\@centercr\leftskip\lettermargin + \@rightskip\@flushglue\rightskip\@rightskip + \parindent\z@}% +\let\endflushleft=\endtrivlist +% +% **************************************** +% * LISTES * +% **************************************** +% +\def\reset@frenchitemize{% + \renewenvironment{itemize}% + {\begin{list}{\textendash}% + {\settowidth{\labelwidth}{\textendash}% + \setlength{\leftmargin}{\listmargin}% + \addtolength{\leftmargin}{\labelwidth}% + \addtolength{\leftmargin}{\labelsep}% + \ifnum\@listdepth=0 + \setlength{\itemindent}{\parindent}% + \else + \addtolength{\leftmargin}{\parindent}% + \fi + \setlength{\itemsep}{\z@}% + \setlength{\parsep}{\z@}% + \setlength{\topsep}{\z@}% + \setlength{\partopsep}{\z@}% + \addtolength{\topsep}{-\parskip}% + \addtolength{\partopsep}{\parskip}% + }% + }% + {\end{list}}% +} +% +\rightmargin 25mm% + \advance\rightmargin 5pt% +\leftmarginii 2.2em% +\leftmarginiii 1.87em% +\leftmarginiv 1.7em% +\leftmarginv 1em% +\leftmarginvi 1em% +\leftmargin\leftmargini +\labelsep 5pt% +\parsep 0pt% +\def\@listi{\leftmargin\listmargin\labelwidth\leftmargin + \advance\leftmargin 1.5em\advance\labelwidth-\labelsep}% +\def\@listii{\leftmargin\leftmarginii + \labelwidth\leftmarginii\advance\labelwidth-\labelsep}% +\def\@listiii{\leftmargin\leftmarginiii + \labelwidth\leftmarginiii\advance\labelwidth-\labelsep + \topsep .1em% + \itemsep \topsep}% +\def\@listiv{\leftmargin\leftmarginiv + \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}% +\def\@listv{\leftmargin\leftmarginv + \labelwidth\leftmarginv\advance\labelwidth-\labelsep}% +\def\@listvi{\leftmargin\leftmarginvi + \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}% +% +\def\labelitemi{$\bullet$}% +\def\labelitemii{\bfseries --}% +\def\labelitemiii{$\ast$}% +\def\labelitemiv{$\cdot$}% +% +\def\labelenumi{\arabic{enumi}.}% +\def\theenumi{\arabic{enumi}}% +\def\labelenumii{(\alph{enumii})}% +\def\theenumii{\alph{enumii}}% +\def\p@enumii{\theenumi}% +\def\labelenumiii{\roman{enumiii}.}% +\def\theenumiii{\roman{enumiii}}% +\def\p@enumiii{\theenumi(\theenumii)}% +\def\labelenumiv{\Alph{enumiv}.}% +\def\theenumiv{\Alph{enumiv}}% +\def\p@enumiv{\p@enumiii\theenumiii}% +% +\def\verse{\let\\=\@centercr + \list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent + \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}% +\let\endverse\endlist +% +\def\quotation{\list{}{\listparindent 1.5em% + \itemindent\listparindent + \rightmargin\leftmargin}\item[]}% +\let\endquotation=\endlist +% +\def\quote{\list{}{\rightmargin\leftmargin}\item[]}% +\let\endquote=\endlist +% +\def\descriptionlabel#1{\itshape #1}% +\def\description{\list{}{\leftmargin=2\listmargin + \labelwidth\listmargin \advance\labelwidth -\labelsep + \let\makelabel\descriptionlabel}}% +\let\enddescription\endlist +% +% **************************************** +% * DIVERS * +% **************************************** +% +\def\@begintheorem#1#2{\itshape \trivlist \item[\hskip \labelsep{\bfseries #1\ #2}]}% +\def\@endtheorem{\endtrivlist}% +% +\def\theequation{\arabic{equation}}% +% +\arraycolsep 5pt% +\tabcolsep 5pt% +\arrayrulewidth .4pt% +\doublerulesep 2pt% +\tabbingsep\labelsep +\skip\@mpfootins=\skip\footins +% +\fboxsep = 3pt % Space left between box and text by \fbox and \framebox. +\fboxrule = .4pt % Width of rules in box made by \fbox and \framebox. +% +% **************************************** +% * FOOTNOTES * +% **************************************** +% +\def\footnoterule{\kern-1\p@ + \hrule width .4\columnwidth + \kern .6\p@}% +% +\long\def\@makefntext#1{\parindent 1em\noindent + \hb@xt@1.8em{% + \hss\@textsuperscript{\normalfont\@thefnmark}}#1}% +% +% **************************************** +% * INITIALISATIONS DES DEFAUTS * +% **************************************** +% +\def\pict@let@width{185}% +\def\pict@let@height{65}% +\def\pict@let@hoffset{0}% +\def\pict@let@voffset{0}% +\def\rule@hpos{-25}% +\def\rule@vpos{-15}% +\def\rule@length{10}% +\def\fromaddress@let@hpos{-10}% +\def\fromaddress@let@vpos{70}% +\fromaddress@let@width=69mm +\def\fromlieu@let@hpos{90}% +\def\fromlieu@let@vpos{62}% +\fromlieu@let@width=69mm +\def\toaddress@let@hpos{90}% +\def\toaddress@let@vpos{40}% +\toaddress@let@width=80mm +% +\def\pict@fax@width{185}% +\def\pict@fax@height{30}% +\def\pict@fax@hoffset{0}% +\def\pict@fax@voffset{0}% +\def\fromaddress@fax@hpos{-10}% +\def\fromaddress@fax@vpos{30}% +\fromaddress@fax@width=69mm +\def\faxstring@hpos{90}% +\def\faxstring@vpos{20}% +\faxstring@width=69mm% +\faxbox@width=170mm% +\toaddress@fax@width=69mm% +\fromname@fax@width=69mm% +% +\def\@institut{\makeatletter + \input{default.ins}% + \makeatother}% +% +\smallskipamount=.5\parskip +\medskipamount=\parskip +\bigskipamount=2\parskip +% +\ps@plain +\pagenumbering{arabic}% +\raggedbottom +\onecolumn +% +% Initialisations des variables de la lettre +% +\def\pdate{\cejour}% +% +\def\emailnum{}% +% +\def\fromlocation{}% +\signum=0\relax +\def\fromsig{}% +\def\fromssig{}% +\def\fromtsig{}% +% +\csname\defaultlanguage\endcsname +\l@@info{Langage par defaut: \defaultlanguage} +\def\concdecl{}% +% +\marge{15mm}% +\msigwidth=\letterwidth +\ssigindent=0.5\letterwidth +\ssigwidth=\letterwidth + \advance\ssigwidth by -\ssigindent + \advance\ssigwidth by -5pt +\sigspace=1.5cm +\openingspace=1cm +\openingindent=0pt +% +\@lettertrue +\faxpage=0\relax +\def\totalpages{}% +% +\def\auxflag{}% +\auxcount=0\relax +\def\toref{}% +\def\fromref{}% +\def\telexnum{}% +\def\ccpnum{}% +% +\def\emailflag{}% +\emailcount=0\relax +\def\@username{}% +\def\ccittnum{}% +\def\internetnum{}% +\def\bitnetnum{}% +\def\telepacnum{}% +\def\decnetnum{}% +% +\def\bdp{}% +\endinput +%% +%% End of file `lettre.cls'. diff --git a/Master/texmf-dist/tex/latex/lettre/obs.ins b/Master/texmf-dist/tex/latex/lettre/obs.ins new file mode 100644 index 00000000000..738c73dd9dc --- /dev/null +++ b/Master/texmf-dist/tex/latex/lettre/obs.ins @@ -0,0 +1,79 @@ +% This file is part of the "lettre" package. +% This package is distributed under the terms of the LaTeX Project +% Public License (LPPL) described in the file lppl.txt. +% +% Denis Mégevand - Observatoire de Genève. +% +% Ce fichier fait partie de la distribution du paquetage "lettre". +% Ce paquetage est distribué sous les termes de la licence publique +% du projet LaTeX (LPPL) décrite dans le fichier lppl.txt. +% +% **************************************** +% * DEFINITIONS LOCALES A L'OBS * +% **************************************** +% +%\input{graphicx.sty} % appele par la classe lettre +\newcommand{\trfam}{\fontencoding{T1}\fontfamily{ptm}\fontseries{m}% + \fontshape{n}} +\newcommand{\treit}{\trfam\fontsize{8}{10pt}\selectfont} +\newcommand{\trten}{\trfam\fontsize{10}{12pt}\selectfont} +\newcommand{\trfvtn}{\trfam\fontsize{15}{18pt}\selectfont} +\long\def\psobs{% + \l@@info{Entete officielle de l'Observatoire}% + \def\fromaddress{\centering + \vskip -5mm% + \if@letter + \treit RÉPUBLIQUE\\[-1mm]% + \treit ET CANTON DE GENÈVE\\[-1mm]% + \fi + \includegraphics[bb=-7 -7 55 65,totalheight=2.5cm]{ecusson55.ps}\par + \mbox{\hss\trfvtn OBSERVATOIRE DE GENÈVE\hss}\\[2mm]% + \if@letter + %\trten Ch. des Maillettes 51\\% + \fi + \if@detail + %\trten Ch. des Maillettes 51\\% + \fi + \trten CH-1290 SAUVERNY\\% + \if@letter + \trten Suisse + \fi + \if@detail + \trten Suisse + \fi}}% +\newcommand{\dhfam}{\fontencoding{T1}\fontfamily{cmdh}\fontseries{m}% + \fontshape{n}} +\newcommand{\cmd}{\dhfam\fontsize{10}{12pt}\selectfont} +\newcommand{\Cmd}{\dhfam\fontsize{12}{14pt}\selectfont} +\newcommand{\CMD}{\dhfam\fontsize{14}{17pt}\selectfont} +\long\def\addressobs{% + \def\fromaddress{\centering + \CMD OBSERVATOIRE DE GENÈVE\rule[6pt]{0pt}% + {1.0\baselineskip}\\[3mm]% + \cmd + \if@letter + %51, chemin des Maillettes\\% + \fi + \if@detail + %51, chemin des Maillettes\\% + \fi + CH-1290 Sauverny\\% + \if@letter + Suisse + \fi + \if@detail + Suisse + \fi}}% +% +\def\lieuobs{\def\fromlieu{Sauverny}}% +\def\telephoneobs{\def\telephonenum{+41 (22) 755 26 11}}% +\def\faxobs{\def\faxnum{+41 (22) 755 39 83}}% +\def\ccpobs{\ccp{12-2130-4}}% +\def\ccittobs{\l@@warning{L'adresse X400 de l'Observatoire (\string\ccittobs) ne doit plus être utilisée}}% +\def\internetobs{\internet{obs.unige.ch}}% +\def\ftpobs{{\tt obsftp.unige.ch \rm(129.194.65.3)}} +\def\wwwobs{{\tt http://obswww.unige.ch/ \rm(129.194.65.3)}} +% +\addressobs\lieuobs\telephoneobs\faxobs +\romand +%fin du fichier obs.ins |