summaryrefslogtreecommitdiff
path: root/info/examples/tip/fonttab.tip
blob: 4da8f97c5a440303577e8b4cc12585c48f65abe8 (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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
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