From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- macros/inrstex/inrsinputs/inrslogo.tex | 58 ++++++++++++++++++++++++++++++++++ 1 file changed, 58 insertions(+) create mode 100644 macros/inrstex/inrsinputs/inrslogo.tex (limited to 'macros/inrstex/inrsinputs/inrslogo.tex') diff --git a/macros/inrstex/inrsinputs/inrslogo.tex b/macros/inrstex/inrsinputs/inrslogo.tex new file mode 100644 index 0000000000..483eb81ec1 --- /dev/null +++ b/macros/inrstex/inrsinputs/inrslogo.tex @@ -0,0 +1,58 @@ +%-*-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} \ No newline at end of file -- cgit v1.2.3