summaryrefslogtreecommitdiff
path: root/info/examples/tip/fontsam.tip
blob: 711e7db18ede027b7dc18709d4d7c45214b57048 (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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
% 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 15.3.4, p. II-249.
% Original source in file "fonts1.TEX", starting line 1238.
\wlog{L: "fontsam.tip" ["fonts1.TEX," l. 1238, p. II-249]}%
% This file DOES NOT belong to format "texip."
\input inputd.tip
\InputD{box-mac.tip}
\InputD{ts-dime3.tip}
\nonstopmode
\nopagenumbers
\def\FontTableComplete{%
                            \tabskip = 0pt
    \halign{%
        \global\font\SampleFont = ##&
        \tt##\hfil          \tabskip = 10pt&
        \def\temp{##}%
        \expandafter\SampleColumn\temp&
        \setbox 0 = \vtop{%
            \parindent = 0pt
            \raggedright
            \hsize = 0.75in
            ##
        }%
        \dp0 = 0pt
        \box0               \tabskip = 0pt
    \cr
        \omit&
        \omit\bf Name\hfil&
        \omit\HeadingThirdColumn&
        \omit\hfil\bf Typical Size(s)\hfil
    \cr
        \omit&
        \omit&
        \omit&
        \omit\hfil\bf (in points)\hfil
    \cr
    \noalign{\penalty -10000}
        cmr10& cmr& Computer Modern Roman type:1&
                5, 6, 7, 8, 9, 10, 12, 17\cr
        cmsl10& cmsl& Computer Modern Slanted Roman type:1&
                8, 9, 10, 12\cr
        cmb10& cmb& Computer Modern Boldface type:1& 10\cr
        cmbx10& cmbx& Computer Modern Boldface Extended type:1& 
                5, 6, 7, 8, 9, 10, 12\cr
        cmtt10& cmtt& Computer Modern Typewriter type:1&
                8, 9, 10, 12\cr
        cmsltt10& cmsltt&
                Computer Modern Slanted Typewriter type:1& 10\cr
        cmvtt10& cmvtt&
                Computer Modern Variable Typewriter type:1& 10\cr
        cmtex10& cmtex& Computer Modern \TeX{}
                Extended ASCII type:1& 8, 9, 10\cr
        cmss10& cmss& Computer Modern Sans Serif type:1&
                8, 9, 10, 12, 17\cr
        cmssi10& cmssi& Computer Modern Slanted Sans Serif type:1&
                8, 9, 10, 12, 17\cr
        cmssdc10& cmssdc& Computer Modern Sans Serif Demibold
                Condensed type:1& 10\cr
        cmssbx10& cmssbx& Computer Modern Sans Serif
                Bold Extended type:1& 10\cr
        cmssq8& cmssq& Computer Modern Sans Serif
                Quotation Style type:1& 8\cr
        cmssqi8& cmssqi& Computer Modern Sans Serif
                Slanted Quotation Style type:1& 8\cr
        cmdunh10& cmdunh& Computer Modern Dunhill Roman type:1& 10\cr
        cmbxsl10& cmbxsl& Computer Modern
                Bold Extended Slanted Roman type:1& 10\cr
        cmff10& cmff& Computer Modern Funny Roman type:1& 10\cr
        cmfib8& cmfib& Computer Modern Fibonacci type:1& 8\cr
        cmti10& cmti& Computer Modern Text Italic type:1&
                7, 8, 9, 10, 12\cr
        cmmi10& cmmi& Computer Modern Math Italic type:1&
                5, 6, 7, 8, 9, 10, 12\cr
        cmbxti10& cmbxti& Computer Modern Bold
                Extended Text Italic type:1& 10\cr
        cmmib10& cmmib& Computer Modern Math Italic Bold type:1&
                10\cr
        cmitt10& cmitt& Computer Modern Italic Typewriter type:1&
                10\cr
        cmu10& cmu& Computer Modern Unslanted Text Italic type:1&
                10\cr
        cmfi10& cmfi& Computer Modern Funny Italic type:1& 10\cr
        cmcsc10& cmcsc& Computer Modern Caps and Small Caps type:1&
                10\cr
        cmtcsc10& cmtcsc& Computer Modern Typewriter Caps and
                Small Caps type:0& 10\cr
    }%
}
\def\SampleColumn #1:#2{%
    \wlog{XX: Arg1 = #1}%
}
\def\HeadingThirdColumn{}
\setbox 0 = \vbox{\FontTableComplete}
\def\SampleColumnText #1{%
    :\space
    here is some sample text to display this font,
    not very long, but long enough to give you an
    idea of what output in this font looks like.%
    \ifnum #1 = 1
        \space That's it for this font.%
    \fi
}
\dimen0 = \hsize
\advance\dimen0 by -\wd0
\def\SampleColumn #1:#2{% 
    \wlog{Arg1: #1}%
    \vtop{% 
        \parindent = 0pt
        \rightskip = 0pt plus 30pt
        \spaceskip = .3333em
        \xspaceskip = .5em
        \hsize = \dimen0
        \SampleFont
        \strut #1\SampleColumnText{#2}\strut
    }%
}
\def\HeadingThirdColumn{\hfil\bf Sample text\hfil}
\setbox 0 = \vbox{\FontTableComplete}
\newbox\HeaderBox
\setbox\HeaderBox = \vsplit 0 to 1000pt 
\setbox\HeaderBox = \vbox{\unvbox \HeaderBox}
\vsize = 10in
\newdimen\SplitTableLength
\SplitTableLength = 7.0in
\def\APage{%
    \vbox{% 
        \copy\HeaderBox
        \smallskip
        \vsplit 0 to \SplitTableLength
    }
    \vfill
    \eject
}
\APage
\APage
\APage
\end