🚀 go-pugleaf

Hi Franz!

Tuesday August 25 1992 23:12, Franz Born % MAUS M wrote to All:

 FB> Ich will einen Text in etwa so setzen, wie es z.B. frueher in der Bibel
 FB> ueblich war, also eine grosse Initiale (I) ueber mehrere Zeilen umgeben
 FB> von Text. Etwa so:

 FB> \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 FB> (I)   Text asfkd asjkdflkj asdflkj asfdlkj safd
 FB>       lasjdflskjd  lskjfd  lasjkfd  lskafjd dkl
 FB> asfjd lsfjkd jsfkadlk jklsafjd sak sdfj skslkdj
 FB> alsdjas djlsdjf sjdlfjslkjfs djlskjdf slkd ...

% I picked this up off the net quite a while ago but I don't know who to
% credit.
% ( \bigfirstlet{T}his works ) :

\def\bigfirstletter#1#2{{\noindent
    \setbox0\hbox{\Huge #1}\setbox1\hbox{#2}\setbox2\hbox{(}%
    \count0=\ht0\advance\count0 by\dp0\count1\baselineskip
    \advance\count0 by-\ht1\advance\count0 by\ht2
    \dimen1=.5ex\advance\count0 by\dimen1\divide\count0 by\count1
    \advance\count0 by1\dimen0\wd0
    \advance\dimen0 by.25em\dimen1=\ht0\advance\dimen1 by-\ht1
    \global\hangindent\dimen0\global\hangafter-\count0
    \hskip-\dimen0\setbox0\hbox to\dimen0{\raise-\dimen1\box0\hss}%
    \dp0=0in\ht0=0in\box0}#2}