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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
% topcapt.sty v1.1a
% Copyright 1994, 1998, 1999 Robin Fairbairns (rf10@cam.ac.uk)
%
% This program can redistributed and/or modified under the terms
% of the LaTeX Project Public License Distributed from CTAN
% archives in directory macros/latex/base/lppl.txt; either
% version 1 of the License, or (at your option) any later version.
%
% This is a jiffy LaTeX package that enables coherent setting
% of the caption _above_ a figure or table
%
% Author: Robin Fairbairns 1994/11/18
% Bugfix from Bernd Schandl incorporated 1998/12/31
% Copyright statement incorporated 1999/03/03
%
% Works under 2e or 2.09
%
% Usage: \usepackage{...,topcapt,...} (2e)
% \documentstyle[...,topcapt,...]{whateverclass} (2.09)
%
% defines a \topcaption command that sets a caption as if above the
% table (i.e., with the abovecaptionskip and the belowcaptionskip
% exchanged)
\@ifundefined{abovecaptionskip}{% in 2.09
\newlength\abovecaptionskip
\newlength\belowcaptionskip
\setlength\abovecaptionskip{10pt}
\setlength\belowcaptionskip{0pt}
\long\def\@makecaption#1#2{%
\vskip\abovecaptionskip
\sbox\@tempboxa{#1: #2}%
\ifdim \wd\@tempboxa >\hsize
#1: #2\par
\else
\hbox to\hsize{\hfil\box\@tempboxa\hfil}%
\fi
\vskip\belowcaptionskip}
}{% in 2e; everything's already set up as above
}
% \topcaption simply advances the caption count, sorts out the
% arguments and passes on to \@topcaption
\newcommand\topcaption{\refstepcounter\@captype
\@dblarg{\@topcaption\@captype}}
% \@topcaption swaps above and below caption skips and the relays its
% arguments to \@caption
\def\@topcaption#1[#2]#3{\@tempskipa\abovecaptionskip
\abovecaptionskip\belowcaptionskip
\belowcaptionskip\@tempskipa
\@caption{#1}[{#2}]{#3}%
\@tempskipa\abovecaptionskip
\abovecaptionskip\belowcaptionskip
\belowcaptionskip\@tempskipa}
|
