summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/genmisc/epigram.tex
blob: e797ceba8ab9ab6a4fa05bed4f6cd374574f5b79 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
% From TeXMaG Volume 2, Number 6
% Don Hosek <DHOSEK@HMCVAX.BITNET>
%
\long\def\epigram#1{% We use \long\def to allow the argument
                    % to span several paragraphs.
    \bigskip       % extra space above.
    \setbox0=\hbox{#1} % put the text into a box
    \ifdim\wd0>\critwidth %check the length
         \centerline{\vtop{\hsize=\episize\noindent#1}}
              % If the length is greater than
              % the critical length, make a
              % displayed paragraph
    \else          % otherwise, we just center the text.
         \centerline{\box0}
    \fi
    \smallskip     % extra space for the end.
}
     
\newdimen\critwidth          \critwidth=.75\hsize
\newdimen\episize            \episize=.6\hsize