<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=ISO-8859-1">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>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.</p>
<tt>% !TeX Program = XeTeX</tt><tt>
</tt>
<p style="-qt-paragraph-type:empty; margin-top:0px;
margin-bottom:0px; margin-left:0px; margin-right:0px;
-qt-block-indent:0; text-indent:0px;"><tt><br>
</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\magnification
\magstep 4</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\vsize
= 210 true mm</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\hsize
= 297 true mm</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\pdfpagewidth
= \hsize</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\pdfpageheight
= \vsize</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\advance
\hoffset by -1 true in</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\advance
\voffset by -1 true in</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\newdimen
\margin</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\margin
= 1 cm</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\advance
\hsize by -2 \margin</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\advance
\vsize by -2 \margin</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\advance
\hoffset by \margin</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\advance
\voffset by \margin</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\baselineskip
= 1,5 \baselineskip</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\parindent
0 pt</tt></p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><br>
<tt>\font \tenrm = "Gill Sans MT Condensed"</tt></p>
<tt>
</tt>
<p style="-qt-paragraph-type:empty; margin-top:0px;
margin-bottom:0px; margin-left:0px; margin-right:0px;
-qt-block-indent:0; text-indent:0px;"><tt><br>
</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\newdimen
\tenpt</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\tenpt
= 10 pt</tt></p>
<tt>
</tt>
<p style="-qt-paragraph-type:empty; margin-top:0px;
margin-bottom:0px; margin-left:0px; margin-right:0px;
-qt-block-indent:0; text-indent:0px;"><tt><br>
</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\def
\process #1%</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt> {%</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt> </tt><tt>\def
\sampler ##1{\hbox to 0,6 \hsize {\font \thisfont = "[#1]" at
##1\thisfont Sample / SAMPLE\hfil}}%</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>
\setbox 0 = \sampler \tenpt %</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt> </tt><tt>\dimen
0 = \tenpt</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt> </tt><tt>\divide
\dimen 0 by \numexpr \dimexpr 0,001 \ht 0 \relax \relax</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt> </tt><tt>\multiply
\dimen 0 by \numexpr \dimexpr 0,001 \tenpt \relax \relax</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt><tt>
</tt></tt> \sampler {\dimen 0 }%</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt><tt>
</tt></tt> {\rm #1}</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt> }</tt></p>
<tt>
</tt>
<p style="-qt-paragraph-type:empty; margin-top:0px;
margin-bottom:0px; margin-left:0px; margin-right:0px;
-qt-block-indent:0; text-indent:0px;"><tt><br>
</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\begingroup</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt>
</tt>\catcode `\_ = \catcode `\@</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt>
</tt>\obeylines </tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt>
</tt>\everypar = {\shewfont}</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt>
</tt>\def \shewfont #1</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt>
</tt> {%</tt></p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt> </tt></tt><tt><tt><tt>
</tt></tt>\process {#1}</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt>
</tt> }%</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt><tt>
</tt>\input d:/fonts.txt %</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\endgroup</tt></p>
<tt>
</tt>
<p style="-qt-paragraph-type:empty; margin-top:0px;
margin-bottom:0px; margin-left:0px; margin-right:0px;
-qt-block-indent:0; text-indent:0px;"><tt><br>
</tt></p>
<tt>
</tt>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>\end</tt></p>
</body>
</html>