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
|
% Copyright INRIA
\typeout{TransFig: figure text in LaTeX.}
\typeout{TransFig: figures in PostScript.}
\begingroup\makeatletter
% extract first six characters in \fmtname
\def\x#1#2#3#4#5#6#7\relax{\def\x{#1#2#3#4#5#6}}
\expandafter\x\fmtname xxxxxx\relax \def\y{splain}
\ifx\x\y % LaTeX or SliTeX?
\gdef\SetFigFont#1#2#3{%
\ifnum #1<17 \tiny\else \ifnum #1<20 \small\else
\ifnum #1<24 \normalsize\else \ifnum #1<29 \large\else
\ifnum #1<34 \Large\else \ifnum #1<41 \LARGE\else
\huge\fi\fi\fi\fi\fi\fi
\csname #3\endcsname}
\else
\gdef\SetFigFont#1#2#3{\begingroup
\count@#1\relax \ifnum 25<\count@ \count@25 \fi
\def\x{\endgroup\@setsize\SetFigFont{#2pt}}%
\expandafter\x
\csname \romannumeral\the\count@ pt\expandafter\endcsname
\csname @\romannumeral\the\count@ pt\endcsname
\csname #3\endcsname}
\fi
\endgroup
\endinput
|
