% Copyright (c) 1986 David J. Braunegg.  All rights reserved.
% Distribution of this file is unrestricted provided that this notice 
% is not removed.

%%% CAPPARMODE

%%% Macros to typeset paragraphs with the first letter of the paragraph in
%%% a large font with the first few lines of the paragraph indented to
%%% make room for this first large letter

\font\big=cmr10 scaled\magstep5

\newdimen\saveparindent

%%% This macro gets you into capparmode mode.  Get back out with \endcapparmode
\def\capparmode{\saveparindent=\parindent
                \parindent=0pt
                \everypar={\futurelet\cap\bigcap}}

\def\bigcap{\setbox0=\vbox to 1.5ex{\hbox{\big\cap}}%
            \dimen0=\wd0%
            \advance\dimen0 by 0.5em
            \hangindent=\dimen0%
            \hangafter=-2%
            \hbox to0pt{\hskip-\hangindent\box0}%
            \let\discard=}

\def\endcapparmode{\parindent=\saveparindent
                   \everypar={}}

%%% This macro causes the next paragraph only to be set in capparmode.
\def\cappar{\noindent
            \futurelet\cap\bigcap}