% 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