diff options
Diffstat (limited to 'info/examples/tex-in-practice/fonttab.tip')
-rw-r--r-- | info/examples/tex-in-practice/fonttab.tip | 90 |
1 files changed, 90 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/fonttab.tip b/info/examples/tex-in-practice/fonttab.tip new file mode 100644 index 0000000000..4da8f97c5a --- /dev/null +++ b/info/examples/tex-in-practice/fonttab.tip @@ -0,0 +1,90 @@ +% This macro source file is from the four volume series +% "TeX in Practice" by Stephan von Bechtolsheim, published +% 1993 by Springer-Verlag, New York. +% Copyright 1993 Stephan von Bechtolsheim. +% No warranty or liability is assumed. +% This macro may be copied freely if no fees other than +% media cost or shipping charges are charged and as long +% as this copyright and the following source code itself +% is not changed. Please see the series for further information. +% +% Version: 1.0 +% Date: May 1, 1993 +% +% +% This source code is documented in 16.9.2, p. II-303. +% Original source in file "fonts2.TEX", starting line 2106. +\wlog{L: "fonttab.tip" ["fonts2.TEX," l. 2106, p. II-303]}% +% This file DOES NOT belong to format "texip." +\input inputd.tip +\InputD{hex.tip} +\InputD{oct.tip} +\InputD{setstrut.tip} +\InputD{verb-bas.tip} +\nopagenumbers +\baselineskip = 13pt +\ComputeStrut +\def\VruleS{\MyStrut width 0.5pt} +\def\PrintCatCode #1{% + \ifnum `\@ = #1\relax + 11 / 12\relax + \else + \the\catcode #1\relax + \fi +} +\newcount\tcount +\newcount\bcount +\def\OneChar #1{% + \tcount = #1 + \advance\tcount by \bcount + \vtop{% + \hsize = 0.54in + \offinterlineskip + \hrule + \line{\VruleS\hfil \tt"\Hex{\tcount}\hskip0.3\hsize\VruleS} + \hrule + \line{\VruleS\hfil \tt'\Oct{\tcount}\hfil\VruleS} + \hrule + \line{\VruleS\hfil $\the\tcount_{\scriptscriptstyle 10}$% + \hfil\VruleS} + \hrule + \line{\VruleS\hfil \PrintCatCode{\tcount}\hfil\VruleS} + \hrule + \line{\VruleS \hfil + {\rm \char\tcount}\hskip 2.3pt + {\bf \char\tcount}\hskip 2.3pt + {\it \char\tcount}% + \hfil\VruleS} + \hrule + \line{\VruleS \hfil\tt \char\tcount\hfil\VruleS} + \hrule + }% +} +\def\TabLine #1{% + \bcount = #1 + \hbox{% + \vtop{% + \baselineskip = 14pt + \hrule height 0pt depth 0pt + \hbox{Hex} + \hbox{Octal} + \hbox{Decimal} + \hbox{\tt\string\catcode} + \hbox{{\tt\string\rm}, \dots} + \hbox{\tt\string\tt} + }% + \hskip 8pt + \OneChar{0}\OneChar{1}\OneChar{2}\OneChar{3}% + \OneChar{4}\OneChar{5}\OneChar{6}\OneChar{7} + } + \vskip 12pt +} +\TabLine{0} \TabLine{8} \TabLine{16} \TabLine{24} +\vfill\eject +\TabLine{32} \TabLine{40} \TabLine{48} \TabLine{56} +\vfill\eject +\TabLine{64} \TabLine{72} \TabLine{80} \TabLine{88} +\vfill\eject +\TabLine{96} \TabLine{104} \TabLine{112} \TabLine{120} +\vfill\eject +\end |