blob: 483eb81ec1b1dffd1e82610fe33c020ba93f8393 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
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}
|
