% 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
