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
|