|
Just in case anyone found the earlier code interesting, here is an improved version that (a) does not miss every second font (!) and (b) does its best to normalise font heights. % !TeX Program = XeTeX
\magnification \magstep 4 \vsize = 210 true mm \hsize = 297 true mm \pdfpagewidth = \hsize \pdfpageheight = \vsize \advance \hoffset by -1 true in \advance \voffset by -1 true in \newdimen \margin \margin = 1 cm \advance \hsize by -2 \margin \advance \vsize by -2 \margin \advance \hoffset by \margin \advance \voffset by \margin \baselineskip = 1,5 \baselineskip \parindent 0 pt
\newdimen \tenpt \tenpt = 10 pt
\def \process #1% {% \def \sampler ##1{\hbox to 0,6 \hsize {\font \thisfont = "[#1]" at ##1\thisfont Sample / SAMPLE\hfil}}% \setbox 0 = \sampler \tenpt % \dimen 0 = \tenpt \divide \dimen 0 by \numexpr \dimexpr 0,001 \ht 0 \relax \relax \multiply \dimen 0 by \numexpr \dimexpr 0,001 \tenpt \relax \relax \sampler {\dimen 0 }% {\rm #1} }
\begingroup \catcode `\_ = \catcode `\@ \obeylines \everypar = {\shewfont} \def \shewfont #1 {% \process {#1} }% \input d:/fonts.txt % \endgroup
\end |
-------------------------------------------------- Subscriptions, Archive, and List information, etc.: http://tug.org/mailman/listinfo/xetex
