\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
