diff options
Diffstat (limited to 'info/examples/tex-in-practice/fontsam.tip')
-rw-r--r-- | info/examples/tex-in-practice/fontsam.tip | 150 |
1 files changed, 150 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/fontsam.tip b/info/examples/tex-in-practice/fontsam.tip new file mode 100644 index 0000000000..711e7db18e --- /dev/null +++ b/info/examples/tex-in-practice/fontsam.tip @@ -0,0 +1,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 |