drop.sty

   1 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   2 %  DROP.DOC <February 17, 1988>
   3 %  Macro for dropping and enlarging the first letter(s) of a paragraph.
   4 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   5 %
   6 %  Macro written by David G. Cantor, and published Fri, 12 Feb 88, in
   7 %  TeXhax, 1988 #16.
   8 %  Internet:  dgc@math.ucla.edu
   9 %  UUCP:      ...!{ihnp4, randvax, sdcrdcf, ucbvax}!ucla-cs!dgc
  10 %
  11 %  Modified for use with LaTeX by Dominik Wujastyk, February 17, 1988
  12 %  Internet:   dow@wjh12.harvard.edu
  13 %  Bitnet:     dow@harvunxw.bitnet
  14 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  15 %
  16 %  This LaTeX macro is for dropping and enlarging the first letter(s) of a
  17 %  paragraph.  The argument may be one or more letters.
  18 %
  19 %  Here is an example of its usage:
  20 %
  21 %  \documentstyle[drop]{article}
  22 %  \begin{document}
  23 %    \drop{IN} THE beginning God created the heaven and the earth.  Now the
  24 %    earth was unformed and void, and darkness was upon the face of the
  25 %    deep; and the spirit of God hovered over the face of the waters.
  26 %  \end{document}
  27 %
  28 %  Which will produce something along these lines:
  29 %
  30 %  I I\  I THE beginning God  created the heaven and  the earth.
  31 %  I I \ I Now the earth was unformed and void, and darkness was
  32 %  I I  \I upon the face of the deep; and the spirit of God hov-
  33 %  ered over the face of the waters.
  34 %
  35 %  In the first instance the macro will pause during LaTeX processing and
  36 %  ask you for the font you wish to use for you drop capital.  When you
  37 %  have something that looks good, then comment out box one in DROP.STY,
  38 %  and comment in box two, replacing "cmr10 scaled \magstep5" with the font
  39 %  of your choice.
  40 %
  41 %  In my opinion (DW) there are no fonts available in the standard
  42 %  TeX/LaTeX set that are ideal for this use, unless you go down to 9pt or
  43 %  8pt for your text face, and this is too small.  If you have Metafont you
  44 %  should consider generating a cmr17 font at a magstep of two (about 25pt)
  45 %  or three (about 30pt), or even more, depending on the point size of your
  46 %  main text.  Why not go the whole hog and design some really fancy
  47 %  capitals from scratch!
  48 %
  49 %%%%%%%%%%%%%%%%%%%%% BOX ONE %%%%%%%%%%%%%%%%%%%%%%%%%
  50 \typein[\dropinitialfont]{Font for Dropped initial:}  %
  51 \font\largefont \dropinitialfont                      %
  52 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  53 %
  54 %%%%%%%%%%%%%%%%%%%%% BOX TWO %%%%%%%%%%%%%%%%%%%%%%%%%
  55 %\font\largefont= cmr10 scaled \magstep5              %
  56 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  57
  58 \def\drop#1#2{{\noindent
  59     \setbox0\hbox{\largefont #1}\setbox1\hbox{#2}\setbox2\hbox{(}%
  60     \count0=\ht0\advance\count0 by\dp0\count1\baselineskip
  61     \advance\count0 by-\ht1\advance\count0by\ht2
  62     \dimen1=.5ex\advance\count0by\dimen1\divide\count0 by\count1
  63     \advance\count0 by1\dimen0\wd0
  64     \advance\dimen0 by.25em\dimen1=\ht0\advance\dimen1 by-\ht1
  65     \global\hangindent\dimen0\global\hangafter-\count0
  66     \hskip-\dimen0\setbox0\hbox to\dimen0{\raise-\dimen1\box0\hss}%
  67     \dp0=0in\ht0=0in\box0}#2}