summaryrefslogtreecommitdiff
path: root/macros/latex209/contrib/misc/ovalfbox.sty
blob: 78f6f24045017c2587cd30ad5bab9072ca136953 (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
29
30
31
32
33
34
35
% THIS IS OVALFBOX.STY of August, 3, 1992.
% Unfortunately, \fboxrule (LaTeX book p.195) does not work,
% since we use ovals (circle font).
% Instead, use \thinlines and \thicklines.
% However, \fboxsep does work!
\def\ovalfbox#1{%
  \mbox{% mbox, leaves vertical mode!
    \begingroup \newdimen\@ovdp
    \boxmaxdepth\maxdimen
    \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue
    \setbox\@tempboxa\hbox{#1}%
    \@ovxx\wd\@tempboxa \advance\@ovxx2\fboxsep
    \@ovdp\dp\@tempboxa \advance\@ovdp\fboxsep
    \@ovyy\ht\@tempboxa \advance\@ovyy\@ovdp \advance\@ovyy\fboxsep
    \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi
    \advance \@tempdimb -2\p@
    \@getcirc \@tempdimb     % sets \@tempboxa en \@tempdima
    \@ovro \ht\@tempboxa \@ovri \dp\@tempboxa
    \@ovdx\@ovxx \advance\@ovdx -\@tempdima \divide\@ovdx \tw@
    \@ovdy\@ovyy \advance\@ovdy -\@tempdima \divide\@ovdy \tw@
    \@circlefnt
    \setbox\@tempboxa
    \hbox{\if@ovr \@ovvert32\kern -\@tempdima \fi
	     \if@ovl \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx \fi
	     \if@ovt \@ovhorz \kern -\@ovxx \fi
	     \if@ovb \raise \@ovyy \@ovhorz \fi}%
    \ht\@tempboxa\z@ \dp\@tempboxa\z@
    \raise-\@ovdp\hbox to\z@{\box\@tempboxa\hss}%
    \hbox to\@ovxx{\hss\rm #1\hss}%
    \endgroup}}
\def\Ovalfbox#1{{\advance\fboxsep 1em \ovalfbox{#1}}}
%                                 ^^^
% Change this if you want less/more space
\endinput