%-*-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}