blob: e3b84fe4dbb64e0c21ef7b75b842e272495205e7 (
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
|
\def\fileversion{1.1}
\def\filedate{94/03/27}
%%%%%%%%%%%%%%%%%%%%%%%
% Initials with NFSS2 %
%%%%%%%%%%%%%%%%%%%%%%%
\typeout{^^JINITIALS style option v\fileversion\space
by Andreas Schrell}
\newbox\yinibox
\def\goodlineskip{\setbox\yinibox\hbox{\initialfont S}%
\initiallinesminus\initiallines
\advance\initiallinesminus by -1
\dimen0=\ht\yinibox\setbox\yinibox\hbox{H}%
\advance\dimen0 by -\ht\yinibox
\divide\dimen0 by \initiallinesminus
\fontsize{\f@size}{\dimen0}\selectfont
\parskip=\baselineskip}
\newcount\initiallines \initiallines=3
\newcount\initiallinesminus
\newcount\initiallinesplus
\def\initial#1{\par
\setbox\yinibox\hbox{H}%
\setbox\yinibox\vbox to \ht\yinibox{\offinterlineskip
\hbox{{\initialfont #1}\ }\vss}%
\initiallinesplus\initiallines
\advance\initiallinesplus by 2
\vskip\initiallinesplus\baselineskip\penalty0
\vskip-\initiallinesplus\baselineskip
\leavevmode\hskip-\wd\yinibox
\copy\yinibox\hangindent=\wd\yinibox
\hangafter=-\initiallines
\ignorespaces}
\endinput
|
