summaryrefslogtreecommitdiff
path: root/info/examples/tex-in-practice/fontsam.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tex-in-practice/fontsam.tip')
-rw-r--r--info/examples/tex-in-practice/fontsam.tip150
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