%-*-tex-*-
%======== macros for the INRS address logo/letterhead =====

\def\ppa{\beginsegment \absoluteposition
\lvec h:.4 v:0
\lvec h:.2 v:.8
\lvec h:-.2 v:.8
\pfill p:0
\endsegment
}

\def\ppb{\beginsegment \absoluteposition
\lvec h:.4 v:0
\lvec h:.1 v:1.2
\lvec h:-.3 v:1.2
\pfill p:0
\endsegment
}

\def\inrslogo h:#1 v:#2 sc:#3 {\beginsegment
\penwidth .005
\move h:#1 v:#2
\unitscale #3
\relative
\ppa
\move h:.48 v:0
\ppa
\move h:.48 v:0
\ppb
\endsegment}
\font\inrsaddfont = cmcsc10
\font\eightrm = cmr8
\def\inrsadd{\vbox{\hsize 5in \baselineskip=9pt \parskip=0pt
            \leftline{\eightrm Universit\'e du Qu\'ebec}
            \vskip 3pt
            \leftline{\inrsaddfont Institut national de la recherche
                       scientifique}
            \vskip 6pt
            {\eightrm \obeylines \parindent=0pt
             3, place du Commerce \par
             Ile-des-Soeurs\par
             Verdun, Qu\'ebec\par
             Canada \qquad   H3E 1H6\par
             T\'el\'ephone: \tele \par}
            \vskip 6pt
            \leftline{\inrsaddfont INRS-T\'el\'ecommunications}
            }}


\def\inrslogoadd h:#1 v:#2 {\btg\inrslogo h:#1 v:#2 sc:.3
                       \beginsegment
                       \move h:0 v:0 \tbox {\inrsadd}
                       \endsegment\etg}

\def\inrsaddform{\titlepagestyle\finalversion
                \inrslogoadd h:-.5 v:0 }

\def\tele{(514) 765-7834}