summaryrefslogtreecommitdiff
path: root/obsolete/fonts/gothic/yinit-as/initials.sty
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