summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/fribrief/k_fribri.cls
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