summaryrefslogtreecommitdiff
path: root/info/digests/ttn/efonttab.tex
diff options
context:
space:
mode:
Diffstat (limited to 'info/digests/ttn/efonttab.tex')
-rw-r--r--info/digests/ttn/efonttab.tex117
1 files changed, 117 insertions, 0 deletions
diff --git a/info/digests/ttn/efonttab.tex b/info/digests/ttn/efonttab.tex
new file mode 100644
index 0000000000..83f4ba9c6c
--- /dev/null
+++ b/info/digests/ttn/efonttab.tex
@@ -0,0 +1,117 @@
+%% The following file was referenced in TTN 2,1:13 (Ch. Thiele)
+%%
+
+% File EFONTTAB.TEX
+% English version last revised on 27 febr. 1995
+%
+% Claudio Beccari -- Dipartimento di Elettronica
+% Politecnico di Torino, Torino, Italy
+%
+% Purpose:
+% The program prepares a table of all the font characters in a
+% 256-symbol table similar to the ones that appear in the TeXbook
+%
+% Instructions at the end
+%
+\documentstyle{article}
+\addtolength{\textheight}{100pt}
+\addtolength{\topmargin}{-40pt}
+\makeatletter
+\newcount\Nfont \Nfont=1 \newtoks\Mfont %\newtoks\nomefont
+\def\Stop{stop}
+\def\introduci{\typeout{}\typeout{}
+\typein[\Font]{Font name [to finish enter stop] }
+\ifx\Font\Stop\let\NeXt\stop\else\let\NeXt\tabella\fi
+\NeXt}
+\newcount\bEc
+
+{%
+\catcode`\"=\active
+\catcode`\;=\active
+\catcode`\'=\active
+\gdef'{\tt\char39\relax}
+\gdef"{\tt\char34\relax}
+\gdef;{\char\bEc\global\advance\bEc by 1&}
+\gdef\MakeActive{\catcode`\"=\active \catcode`\;=\active \catcode`\'=\active}
+\gdef\dline#1#2#3{'#1&;;;;;;;;\cr
+ \multispan9{\hrulefill}&\raisebox{-0,6ex}[0pt][0pt]{"#3}\cr
+ '#2&;;;;;;;;\cr\hline}
+\gdef\firstline{ & '0 & '1 & '2 & '3 & '4 & '5 & '6 & '7 & \cr }
+\gdef\lastline{ & "8 & "9 & "A & "B & "C & "D & "E & "F & }
+}
+
+
+\def\tabella{\newpage
+\Mfont=\expandafter{\romannumeral\Nfont}
+\edef\nomefont{font\the\Mfont}
+\edef\nomefont{\expandafter\csname\nomefont\endcsname}
+\expandafter\font\nomefont=\Font
+\begin{center}\nomefont
+\MakeActive
+\bEc=0
+\def\arraystretch{1.3}
+%
+\makebox[0pt]{%
+\begin{tabular}{@{}c|*8{c|}c@{}}
+\firstline
+\hline
+\dline{00}{01}{0}
+\dline{02}{03}{1}
+\dline{04}{05}{2}
+\dline{06}{07}{3}
+\dline{10}{11}{4}
+\dline{12}{13}{5}
+\dline{14}{15}{6}
+\dline{16}{17}{7}
+\dline{20}{21}{8}
+\dline{22}{23}{9}
+\dline{24}{25}{A}
+\dline{26}{27}{B}
+\dline{30}{31}{C}
+\dline{32}{33}{D}
+\dline{34}{35}{E}
+\dline{36}{37}{F}
+\lastline
+\end{tabular}}
+\par
+\nobreak\bigskip
+{\rm Font: \Font.}\\*[20pt]
+ABCDEFGHIJKLMNOPQRSTUVWXYZ \\*
+abcdefghijklmnopqrstuvwxyz
+\end{center}\advance\Nfont 1\introduci}
+
+\begin{document}
+\introduci
+\end{document}
+%
+%
+% It runs under LaTeX and is interactive so as to let you prepare
+% as many font tables as you whish in just one run
+%
+% Usage:
+% Run the program by entering
+%
+% latex fonttab
+%
+% The program will prompt you for a font name:
+%
+% Font name [to finish enter stop]
+% \Font=
+%
+% Enter the font name you want to try, for example dcu10, or emu10, or ...
+%
+% The program will produce the font table corresponding to the chosen font
+% and will ask you another font name; keep entering as many font names you
+% want and finish by entering the word stop at the font name prompt.
+% That's it. ^^^^
+%
+% When you have your .dvi file "efonttab.dvi" print it by means of your
+% printer driver. Be aware that you might have the font metric file (.tfm)
+% for the chosen font, but you might lack the corresponding pixel files, so
+% that your table will be empty or contain a subtitution font according to
+% your setup.
+%
+% Be sure also that your printer driver handles correctly 256 character
+% fonts and/or virtual fonts.
+
+