blob: 7be18e2d8b2db52b29873d21adbc5d833ab63883 (
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
|
%% K_FriBri.CLS -- Version vom 2. Jul. 1997
%% fuer LaTeX2e und KOMA-Script
%% von Alex Fries
%%
%% Kontaktadressen:
%% Alex Fries: Alex.Fries@Lauer-EDV.com
%% bp016@smail.fh-koeln.de
%%
%% Optionen, abweichend von scrlettr-class:
%% Calli Name in Calligraphie (genoetigt Font callig15)
%% SmallC Name in Smallcapital, ueber- und unterstrichen
%% DIN Briefkopf nach DIN 5008 (Regeln fr
%% Maschinenschreiben)
%%
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesClass{k_fribri}
[1997/07/02 ... der mit der persoenliche Note]
% **************
% neue Fonts
% **************
\newfont{\alex}{cmcsc10 scaled 2988}
\newfont{\smallalex}{cmcsc10 scaled 800}
\newfont{\calligraphie}{callig15 scaled 2988}
\newfont{\smallcalli}{callig15 scaled 1000}
% **************************************
% spezielle Befehle und Definitionen
% **************************************
\newcommand{\NLine}[1]{\vbox{\rule{\wd16}{#1}}}
\newcommand{\BKopf}{}
\newcommand{\nBKopf}{%
\nexthead{\parbox[b]{\textwidth}{{%
\sc\ignorespaces\fromname}{%
\hfill\sf\footnotesize\headtoname\ \ignorespaces\toname
\hfill\datename:\ \@date\hfill\pagename\
\thepage\\[-8pt]\rule{\textwidth}{.4pt}}}}}
% *****************
% DeclareOption
% *****************
\DeclareOption{Calli}{%
\renewcommand{\BKopf}{%
\firsthead{%
\put(0,30){\parbox{\textwidth}{{%
\calligraphie\ignorespaces\fromname}\hfill\raisebox{8mm}[15.7mm]{%
\parbox[t]{4.5cm}{%
\baselineskip2.5ex\raggedleft\ignorespaces\fromaddress\\
\telephonenum}}}}}}
\renewcommand{\nBKopf}{%
\nexthead{\parbox[b]{\textwidth}{{%
\smallcalli\ignorespaces\fromname}{%
\hfill\footnotesize\headtoname\ \ignorespaces\toname
\hfill\datename:\ \@date\hfill\pagename\
\thepage\\[-6pt]\rule{\textwidth}{.4pt}}}}}}
\DeclareOption{DIN}{%
\renewcommand{\BKopf}{%
\firsthead{%
\put(0,23){\parbox[t]{\textwidth}{%
\normalsize\ignorespaces\fromname\\\ignorespases\fromaddress\\
\telephonenum}}}}
\renewcommand{\nBKopf}{%
\nexthead{\parbox[b]{\textwidth}{{%
\sfb\ignorespaces\fromname}
\hfill\sf\headtoname\ \ignorespaces\toname
\hfill\datename:\ \@date\hfill\pagename\
\thepage\\[-8pt]\rule{\textwidth}{.4pt}}}}}
\DeclareOption{SmallC}{%
\renewcommand{\BKopf}{%
\firsthead{%
\put(0,32){\parbox[t]{\textwidth}{{%
\setbox16=\hbox{\alex\ignorespaces\fromname}\parbox[t]{\wd16}{%
\offinterlineskip\NLine{0.5mm}\vglue1.5mm\hbox to \wd16{%
\alex\ignorespaces\fromname}%
\vglue1.5mm\NLine{0.5mm}}}\hfill\raisebox{-2.25mm}[15.7mm]{%
\parbox[t]{4.5cm}{\baselineskip2.5ex\raggedleft\ignorespaces
\fromaddress\\\telephonenum\\[2.5ex]}}}}}}
\renewcommand{\nBKopf}{%
\nexthead{\parbox[b]{\textwidth}{{%
\setbox16=\hbox{\smallalex\ignorespaces\fromname}\parbox[b]{\wd16}{%
\offinterlineskip\NLine{0.2mm}\vglue0.35mm\hbox to \wd16{%
\smallalex\ignorespaces\fromname}\vglue0.5mm\NLine{0.2mm}}}
% \sfb\ignorespaces\fromname}
\hfill\rm\headtoname\ \ignorespaces\toname
\hfill\datename:\ \@date\hfill\pagename\
\thepage\\[-8pt]\rule{\textwidth}{.4pt}}}}}
\DeclareOption*{%
\PassOptionsToClass{\CurrentOption}{scrlettr}}
\ProcessOptions
\LoadClass{scrlettr}[1997/05/31]
% *********************************
% scrlettr-Befehle undefinieren
% *********************************
\pagestyle{headings}
\BKopf
\nBKopf
|