blob: b9bb9e0bc49059593f20d22319ab787ee1dce677 (
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
% MPLETTER.CLS as taken out of gtl-letters.tex 4th edition
\NeedsTeXFormat{LaTeX2e}
\ProvidesClass{mpletter}
\RequirePackage{ifthen}
\newboolean{@german}
\setboolean{@german}{false}
\DeclareOption{german}{\setboolean{@german}{true}}
\DeclareOption*{\PassOptionsToClass{\CurrentOption}{letter}}
\ProcessOptions
\LoadClass[a4paper]{letter}
\newcommand{\englishnames}{%
\newcommand{\yrefname}{\textsl{Your Ref.}}
\newcommand{\ymailname}{\textsl{Your letter from}}
\newcommand{\myrefname}{\textsl{Our Ref.}}
\newcommand{\subjectname}{\textsl{Subject}}
\newcommand{\telephonename}{Telephone}
\newcommand{\stationname}{Train Station}
\newcommand{\germanname}{GERMANY}
\newcommand{\telcode}{[49]-5556-401}
\newcommand{\postcode}{D--37191}
}
\newcommand{\germannames}{%
%. . . . . . . . . . . . . . . . . . . . .
\newcommand{\telcode}{(05556) 401}
\newcommand{\postcode}{37191}
}
\ifthenelse{\boolean{@german}}
{\RequirePackage{german}\germannames}{\englishnames}
\newcommand{\@yref}{} \newcommand{\@ymail}{}
\newcommand{\@myref}{} \newcommand{\@subject}{}
\newcommand{\@internet}{}
\newcommand{\yref}[1]{\renewcommand{\@yref}{\yrefname: #1}}
\newcommand{\ymail}[1]{\renewcommand{\@ymail}{\ymailname: #1}}
\newcommand{\myref}[1]{\renewcommand{\@myref}{\myrefname: #1}}
\newcommand{\subject}[1]{\renewcommand{\@subject}
{\subjectname: #1}}
\newcommand{\internet}[1]{\renewcommand{\@internet}{#1}}
\newcommand{\INTERNET}{@linmpi.mpg.de}
\setlength{\textheight}{215mm} \setlength{\textwidth}{160mm}
\setlength{\oddsidemargin}{0pt} \setlength{\evensidemargin}{0pt}
\setlength{\topmargin}{-20pt} \setlength{\headheight}{12pt}
\setlength{\headsep}{35pt}
\DeclareFixedFont{\xviisf}{OT1}{cmss}{m}{n}{17}
\DeclareFixedFont{\xsf}{OT1}{cmss}{m}{n}{10}
\DeclareFixedFont{\viiisf}{OT1}{cmss}{m}{n}{8}
\newlength{\leftfield} \setlength{\leftfield}{117mm}
\newlength{\rightfield} \setlength{\rightfield}{43mm}
\newsavebox{\FIRM} \newsavebox{\firmaddress}
\newsavebox{\firm} \newsavebox{\firmreturn}
\sbox{\FIRM}
{\parbox[t]{\leftfield}
{\xviisf MAX--PLANCK--INSTITUT F\"UR AERONOMIE}}
\sbox{\firm}
{\xsf MAX--PLANCK--INSTITUT F\"UR AERONOMIE}
\sbox{\firmreturn}
{\viiisf\underline{MPI f\"ur Aeronomie,
\postcode{} Katlenburg--Lindau}}
\sbox{\firmaddress}
{\parbox[t]{\rightfield}{\viiisf\baselineskip10pt
Max--Planck--Stra{\ss}e 2\\
\postcode{} Katlenburg--Lindau\\\germanname}}
\newsavebox{\firmhead} \newsavebox{\firmfoot}
\sbox{\firmhead}
{\parbox{\textwidth}{\usebox{\FIRM}\raisebox{6pt}
{\usebox{\firmaddress}}\\[3pt] \rule{\textwidth}{1pt}}}
\sbox{\firmfoot}
{\parbox{\textwidth}{\rule{\textwidth}{0.6pt}\\[5pt]
\viiisf\setlength{\baselineskip}{12pt}%
\begin{tabular}[t]{@{}ll}
\underline{\telephonename} & \telcode-1\\
\underline{Telefax} & \telcode-240\\
\underline{Telex} & 9\,65\,527 aerli
\end{tabular}\hfill
\begin{tabular}[t]{l}
\underline{Bank}\\
Kreis--Sparkasse Northeim\\
41\,104\,449 (BLZ 262\,500\,01)
\end{tabular}\hfill
\begin{tabular}[t]{l@{}}
\underline{\stationname}\\
Northeim\\
(Han.)
\end{tabular} }}
\renewcommand{\ps@firstpage}
{\setlength{\headheight}{41pt}\setlength{\headsep}{25pt}%
\renewcommand{\@oddhead}{\usebox{\firmhead}}%
\renewcommand{\@oddfoot}{\raisebox{-20pt}[0pt]
{\usebox{\firmfoot}}}%
\renewcommand{\@evenhead}{}\renewcommand{\@evenfoot}{}}
\renewcommand{\ps@headings}
{\setlength{\headheight}{41pt}%
\renewcommand{\@oddhead}
{\parbox{\textwidth}{\usebox{\firm}\\[5pt]
\slshape \headtoname{} \toname\hfill\@date\hfill
\pagename{} \thepage\\
\rule[3pt]{\textwidth}{1pt}}}
\renewcommand{\@oddfoot}{}
\renewcommand{\@evenhead}{\@oddhead}
\renewcommand{\@evenfoot}{\@oddfoot}}
\providecommand{\@evenhead}{}\providecommand{\@oddhead}{}
\providecommand{\@evenfoot}{}\providecommand{\@oddfoot}{}
\pagestyle{headings}
\renewcommand{\opening}[1]{\thispagestyle{firstpage}%
\parbox[t]{\leftfield}
{\usebox{\firmreturn}\\
\parbox[b][3.5cm][c]{\leftfield}{\toname\\\toaddress}}%
\parbox[t]{\rightfield}
{\fromname
\ifthenelse{\equal{\telephonenum}{}}
{}{\\ Tel.: \telcode-\telephonenum}
\ifthenelse{\equal{\@internet}{}}
{}{\\{\viiisf Email: \@internet\INTERNET}}
\\[5mm] \@date}
\par
\rule{\textwidth}{0.6pt}
\makebox[\leftfield][l]
{\ifthenelse{\equal{\@yref}{}}
{\@ymail}{\@yref\hfill\@ymail\hfill}}
\@myref\par
\ifthenelse{\equal{\@subject}{}}
{}{\@subject\par}
\vspace{2\parskip} #1 \par\nobreak}
|
