blob: 458c2da73735096c40cf84409ba3bdb252e02dd7 (
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
|
% pdcdcap.tex - drop capitals for start of paragraphs
% Copyright (C) 1990-1991 Damian Cugley
\newcount\dropcaptmp
% #1 -- font to use
% #2 -- letter to use as dropcap
% #3 -- rest of 1st word
% #4 -- second word of paragraph
%
\gdef\dropcap#1#2#3 #4 %
{%
\smallbreak % finish previous par
\setbox0=\hbox{#1hX\/}\dimen0=\ht0
\setbox0=\hbox{hX}\advance\dimen0 by -\ht0 % d := ht(#1X) - ht(X)
\dropcaptmp=\dimen0 \advance\dropcaptmp+\hfuzz
\divide\dropcaptmp\baselineskip \global\advance\dropcaptmp +1
% c := ((d + hfuzz)/bl + 1)
\message{bl=\the\baselineskip\space d=\the\dimen0 \space
c=\the\dropcaptmp }
\dimen0 = \dropcaptmp\baselineskip \advance\dimen0 by -\baselineskip
% d := (c - 1)*bl
\setbox0=\hbox{#1\kern-0.0555em#2\/}%
\setbox0=\hbox{\smash{\lower\dimen0 \box0 }}%
\hangindent=\wd0 \hangafter=-\dropcaptmp
{\parindent=0pt \leavevmode}%
\llap{\box0 }\uppercase{#3}\space \uppercase{#4}\space
}
|