&Out("\%\&latex\n\\documentclass{article} ");
&Out("");
&Out("\\renewcommand{\\encodingdefault}{$encoding_}");
&Out("");
&Out("\\usepackage{z$_[0]$fontfam_}");
&Out("");
&Out("\\title{A math test document} ");
&Out("");
&Out("\\raggedbottom ");
&Out("");
&Out("\\font\\TTT=cmr7 \\newcount\\cno");
&Out("\\def\\TT{\\T\\setbox0=\\hbox{\\char\\cno}\\ifdim\\wd0>0pt");
&Out("   \\box0\\lower4pt\\hbox{\\TTT\\the\\cno}\\else");
&Out("   \\ifdim\\ht0>0pt \\box0\\lower4pt\\hbox{\\TTT\\the\\cno}\\fi\\fi");
&Out("   \\global\\advance\\cno by1");
&Out("}");
&Out("\\def\\showfont#1{\\font\\T=#1 at 10pt\\global\\cno=0");
&Out(" \\tabskip1pt plus2pt minus1pt\\halign to\\textwidth{&\\hss\\TT ##\\hss\\cr");
&Out(" \\multispan{16}\\hfil \\tt Font #1\\hfil\\cr\\noalign{\\smallskip}");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out(" &&&&&&&&&&&&&&&\\cr");
&Out("}}");
&Out("\\newcommand{\\testsize}[1]{ ");
&Out("   #1 \\texttt{\\string#1}: \\(a_{c_e}, b_{d_f}, C_{E_G}, 0_{1_2}, ");
&Out("      a_{0_a}, 0_{a_0}, ");
&Out("      \\sum_{i=0}^\\infty\\) \\\\ ");
&Out("} ");
&Out("");
&Out("\\newcommand{\\testdelims}[3]{\\sqrt{ ");
&Out("   #1|#1\\|#1\\uparrow ");
&Out("   #1\\downarrow#1\\updownarrow#1\\Uparrow#1\\Downarrow ");
&Out("   #1\\Updownarrow#1\\lfloor#1\\lceil ");
&Out("   #1(#1\\{#1[#1\\langle ");
&Out("      #3 ");
&Out("   #2\\rangle#2]#2\\}#2) ");
&Out("   #2\\rceil#2\\rfloor#2\\Updownarrow#2\\Downarrow ");
&Out("   #2\\Uparrow#2\\updownarrow#2\\downarrow#2\\uparrow ");
&Out("   #2\\|#2| ");
&Out("}\\\\} ");
&Out("");
&Out("\\newcommand{\\testglyphs}[1]{ ");
&Out("\\begin{quote} ");
&Out("   #1a#1b#1c#1d#1e#1f#1g#1h#1i#1j#1k#1l#1m ");
&Out("   #1n#1o#1p#1q#1r#1s#1t#1u#1v#1w#1x#1y#1z ");
&Out("   #1A#1B#1C#1D#1E#1F#1G#1H#1I#1J#1K#1L#1M ");
&Out("   #1N#1O#1P#1Q#1R#1S#1T#1U#1V#1W#1X#1Y#1Z ");
&Out("   #10#11#12#13#14#15#16#17#18#19 ");
&Out("   #1\\Gamma#1\\Delta#1\\Theta#1\\Lambda#1\\Xi ");
&Out("   #1\\Pi#1\\Sigma#1\\Upsilon#1\\Phi#1\\Psi#1\\Omega ");
&Out("   #1\\alpha#1\\beta#1\\gamma#1\\delta#1\\epsilon ");
&Out("   #1\\varepsilon#1\\zeta#1\\eta#1\\theta#1\\vartheta ");
&Out("   #1\\iota#1\\kappa#1\\lambda#1\\mu#1\\nu#1\\xi#1\\omicron ");
&Out("   #1\\pi#1\\varpi#1\\rho#1\\varrho ");
&Out("   #1\\sigma#1\\varsigma#1\\tau#1\\upsilon#1\\phi ");
&Out("   #1\\varphi#1\\chi#1\\psi#1\\omega ");
&Out("   #1\\partial#1\\ell#1\\imath#1\\jmath#1\\wp ");
&Out("\\end{quote} ");
&Out("} ");
&Out("");
&Out("\\newcommand{\\sidebearings}[1]{ \\(|#1|\\) } ");
&Out("\\newcommand{\\subscripts}[1]{ \\(#1_\\circ\\) } ");
&Out("\\newcommand{\\supscripts}[1]{ \\(#1^\\circ\\) } ");
&Out("\\newcommand{\\scripts}[1]{ \\(#1^\\circ_\\circ\\) } ");
&Out("\\newcommand{\\vecaccents}[1]{ \\(\\vec#1\\) } ");
&Out("\\newcommand{\\tildeaccents}[1]{ \\(\\tilde#1\\) } ");
&Out("");
&Out("\\ifx\\omicron\\undefined ");
&Out("   \\let\\omicron=o ");
&Out("\\fi ");
&Out("");
&Out("\\begin{document} ");
&Out("");
&Out("\\maketitle ");
&Out("");
&Out("\\subsection*{Introduction} ");
&Out("");
&Out("This document tests the math capabilities of a math package, and is ");
&Out("strongly modelled after a similar document by Alan Jeffrey.  ");
&Out("This test exercises the {\\tt $fontfam_} text fonts.");
&Out("");
if ($myans =~ /^y/i) {
  &Out("\\showfont{${fontfam_}$rreg${mathid}7t}");
  &Out("\\smallskip			     ");
  &Out("\\showfont{${fontfam_}$rreg${mathid}7m}");
  &Out("\\smallskip			     ");
  &Out("\\showfont{${fontfam_}$rreg${mathid}7y}");
  &Out("\\smallskip			     ");
  &Out("\\showfont{${fontfam_}$rreg${mathid}7v}");
  &Out("\\newpage  ");  
}
&Out("\\subsection*{Fonts} ");
&Out("");
&Out("Math italic: ");
&Out("\\[ ");
&Out("   ABCDEFGHIJKLMNOPQRSTUVWXYZ ");
&Out("   abcdefghijklmnopqrstuvwxyz ");
&Out("\\] ");
&Out("Text italic: ");
&Out("\\[ ");
&Out("   \\mathit{ABCDEFGHIJKLMNOPQRSTUVWXYZ ");
&Out("      abcdefghijklmnopqrstuvwxyz} ");
&Out("\\] ");
&Out("Roman: ");
&Out("\\[ ");
&Out("   \\mathrm{ABCDEFGHIJKLMNOPQRSTUVWXYZ ");
&Out("      abcdefghijklmnopqrstuvwxyz} ");
&Out("\\] ");
&Out("Bold: ");
&Out("\\[ ");
&Out("   \\mathbf{ABCDEFGHIJKLMNOPQRSTUVWXYZ ");
&Out("      abcdefghijklmnopqrstuvwxyz} ");
&Out("\\] ");
if (&isvariable($greekbold_)){
  &Out("\\[\n      \\mathbf{\\Gamma\\Delta\\Theta\\Lambda\\Xi\\Pi\\Sigma");
  &Out("      \\Upsilon\\Phi\\Psi\\Omega}\n\\]");
}&Out("Typewriter: ");
&Out("\\[ ");
&Out("   \\mathtt{ABCDEFGHIJKLMNOPQRSTUVWXYZ ");
&Out("      abcdefghijklmnopqrstuvwxyz} ");
&Out("\\] ");
&Out("Greek: ");
&Out("\\[ ");
&Out("   \\Gamma\\Delta\\Theta\\Lambda\\Xi\\Pi\\Sigma\\Upsilon\\Phi\\Psi\\Omega ");
&Out("  \\alpha\\beta\\gamma\\delta\\epsilon\\varepsilon\\zeta\\eta\\theta\\vartheta ");
&Out("   \\iota\\kappa\\lambda\\mu\\nu\\xi\\omicron\\pi\\varpi\\rho\\varrho ");
&Out("   \\sigma\\varsigma\\tau\\upsilon\\phi\\varphi\\chi\\psi\\omega ");
&Out("\\] ");
if (&isvariable(cal_)) {
  &Out("Calligraphic:"); 
  &Out("\\[A\\mathcal{ABCDEFGHIJKLMNOPQRSTUVWXYZ}Z\\]");
}
$Sanstest = <<EndSanstest; 
Sans: 
\\[ 
   A\\mathsf{ABCDEFGHIJKLMNOPQRSTUVWXYZ}Z \\quad 
      a\\mathsf{abcdefghijklmnopqrstuvwxyz}z 
\\] 
EndSanstest
$Fraktest = <<EndFraktest;
Fraktur:
\\[
   A\\mathfr{ABCDEFGHIJKLMNOPQRSTUVWXYZ}Z \\quad
   a\\mathfr{abcdefghijklmnopqrstuvwxyz}z 
\\]
EndFraktest
$BBoldtest = <<EndBBoldtest;
Blackboard Bold: 
\\[ 
   A\\mathbb{ABCDEFGHIJKLMNOPQRSTUVWXYZ}Z
\\] 
EndBBoldtest
$DD = <<EndD;
Do these line up appropriately? 
\\[ 
   \\forall \\mathcal{B} \\Gamma \\mathbf{D} \\exists \\mathtt{F} 
   G \\mathcal{H} \\Im \\mathbf{J} \\mathsf{K} \\Lambda 
   M \\aleph \\emptyset \\Pi \\mathit{Q} \\Re \\Sigma 
   \\mathtt{T} \\Upsilon \\mathcal{V} \\mathbf{W} \\Xi 
   \\mathsf{Y} Z 
   \\quad 
   a \\mathbf{c} \\epsilon \\mathtt{i} 
   \\kappa \\mathbf{m} \\nu o \\varpi \\mathsf{r} 
   s \\tau \\mathit{u} v \\mathsf{w} z 
   \\quad 
   \\mathtt{g} j \\mathsf{q} \\chi y 
   \\quad 
   b \\delta \\mathbf{f} \\mathtt{h} k \\mathsf{l} \\phi 
\\] 

\\subsection*{Accents}

\\[
\\hbox{%
   \\'o \\`o \\^o \\${q}o \\~o \\=o \\.o \\u o \\v o 
   \\H o \\t oo \\c o \\d o \\b o \\t oo}
   \\quad
   \\hat o \\check o \\tilde o \\acute o \\grave o \\dot o 
   \\ddot o 
   \\breve o \\bar o \\vec o \\vec h \\hbar 
\\]

\\subsection*{Glyph dimensions} 

These glyphs should be optically centered: 
   \\testglyphs\\sidebearings 
These subscripts should be correctly placed: 
   \\testglyphs\\subscripts 
These superscripts should be correctly placed: 
   \\testglyphs\\supscripts 
These subscripts and superscripts should be correctly placed: 
   \\testglyphs\\scripts 
These accents should be centered: 
   \\testglyphs\\vecaccents 
As should these: 
   \\testglyphs\\tildeaccents 

\\subsection*{Symbols} 

These arrows should join up properly: 
\\[ 
   a \\hookrightarrow b \\hookleftarrow c \\longrightarrow d 
   \\longleftarrow e \\Longrightarrow f \\Longleftarrow g 
   \\longleftrightarrow h \\Longleftrightarrow i 
   \\mapsto j 
\\]
\\[ 
    g^\\circ \\mapsto g^\\bullet\\quad x\\equiv y\\not\\equiv z
\\]
These symbols should be of similar weights: 
\\[ 
   \\pm + - \\mp = / \\backslash ( \\langle [ \\{ \\} ] \\rangle ) < \\leq >  \\geq 
\\] 
Are these the same size? 
\\[\\textstyle 
   \\oint \\int \\quad 
   \\bigodot \\bigoplus \\bigotimes \\sum \\prod 
   \\bigcup \\bigcap \\biguplus \\bigwedge \\bigvee \\coprod 
\\] 
Are these? 
\\[ 
   \\oint \\int \\quad 
   \\bigodot \\bigoplus \\bigotimes \\sum \\prod 
   \\bigcup \\bigcap \\biguplus \\bigwedge \\bigvee \\coprod 
\\] 


\\subsection*{Sizing}

\\[
    abcde + x^{abcde} + 2^{x^{abcde}}
\\] 

The subscripts should be appropriately sized: 
\\begin{quote} 
%\\testsize\\tiny 
%\\testsize\\scriptsize 
%\\testsize\\footnotesize 
%\\testsize\\small 
\\testsize\\normalsize 
%\\testsize\\large 
%\\testsize\\Large 
%\\testsize\\LARGE 
%\\testsize\\huge 
%\\testsize\\Huge 
\\end{quote} 

\\subsection*{Delimiters} 

Each row should be a different size, but within each row the delimiters 
should be the same size.  First with \\verb|\\big|, etc: 
\\[\\begin{array}{c} 
   \\testdelims\\relax\\relax{a} 
   \\testdelims\\bigl\\bigr{a} 
   \\testdelims\\Bigl\\Bigr{a} 
   \\testdelims\\biggl\\biggr{a} 
   \\testdelims\\Biggl\\Biggr{a} 
\\end{array}\\] 
Then with \\verb|\\left| and \\verb|\\right|: 
\\[\\begin{array}{c} 
   \\testdelims\\left\\right{\\begin{array}{c} a \\end{array}} 
   \\testdelims\\left\\right{\\begin{array}{c} a\\\\a \\end{array}} 
   \\testdelims\\left\\right{\\begin{array}{c} a\\\\a\\\\a \\end{array}} 
   \\testdelims\\left\\right{\\begin{array}{c} a\\\\a\\\\a\\\\a \\end{array}}  
\\end{array}\\] 

\\subsection*{Spacing} 

This paragraph should appear to be a monotone grey texture.  Suppose
\\(f \\in \\mathcal{S}_n\\) and \\(g(x) = (-1)^{|\\alpha|}x^\\alpha
f(x)\\).  Then \\(g \\in \\mathcal{S}_n\\); now (\\emph{c}) implies
that \\(\\hat g = D_\\alpha \\hat f\\) and \\(P \\cdot D_\\alpha\\hat
f = P \\cdot \\hat g = (P(D)g)\\hat{}\\), which is a bounded function,
since \\(P(D)g \\in L^1(R^n)\\).  This proves that \\(\\hat f \\in
\\mathcal S_n\\).  If \\(f_i \\rightarrow f\\) in \\(\\mathcal S_n\\),
then \\(f_i \\rightarrow f\\) in \\(L^1(R^n)\\).  Therefore \\(\\hat
f_i(t) \\rightarrow \\hat f(t)\\) for all \\(t \\in R^n\\).  That \\(f
\\rightarrow \\hat f\\) is a \\emph{continuous} mapping of
\\(\\mathcal S_n\\) into \\(\\mathcal S_n\\) follows now from the
closed graph theorem.  \\emph{Functional Analysis}, W.~Rudin,
McGraw--Hill, 1973. And thus for \\(x_1\\) through \\(x_i\\).

{\\itshape This paragraph should appear to be a monotone grey texture.
Suppose \\(f \\in \\mathcal{S}_n\\) and \\(g(x) =
(-1)^{|\\alpha|}x^\\alpha f(x)\\).  Then \\(g \\in \\mathcal{S}_n\\);
now (\\emph{c}) implies that \\(\\hat g = D_\\alpha \\hat f\\) and
\\(P \\cdot D_\\alpha\\hat f = P \\cdot \\hat g = (P(D)g)\\hat{}\\),
which is a bounded function, since \\(P(D)g \\in L^1(R^n)\\).  This
proves that \\(\\hat f \\in \\mathcal S_n\\).  If \\(f_i \\rightarrow
f\\) in \\(\\mathcal S_n\\), then \\(f_i \\rightarrow f\\) in
\\(L^1(R^n)\\).  Therefore \\(\\hat f_i(t) \\rightarrow \\hat f(t)\\)
for all \\(t \\in R^n\\).  That \\(f \\rightarrow \\hat f\\) is a
\\emph{continuous} mapping of \\(\\mathcal S_n\\) into \\(\\mathcal
S_n\\) follows now from the closed graph theorem.  \\emph{Functional
Analysis}, W.~Rudin, McGraw--Hill, 1973.}

The text in these boxes should spread out as much as the math does: 
\\[\\begin{array}{c} 
   \\framebox[.95\\width][s]{For example \\(x+y = \\min\\{x,y\\} 
      + \\max\\{x,y\\}\\) is a formula.} \\\\ 
   \\framebox[.975\\width][s]{For example \\(x+y = \\min\\{x,y\\} 
      + \\max\\{x,y\\}\\) is a formula.} \\\\ 
   \\framebox[\\width][s]{For example \\(x+y = \\min\\{x,y\\} 
      + \\max\\{x,y\\}\\) is a formula.} \\\\ 
   \\framebox[1.025\\width][s]{For example \\(x+y = \\min\\{x,y\\} 
      + \\max\\{x,y\\}\\) is a formula.} \\\\ 
   \\framebox[1.05\\width][s]{For example \\(x+y = \\min\\{x,y\\} 
      + \\max\\{x,y\\}\\) is a formula.} \\\\ 
   \\framebox[1.075\\width][s]{For example \\(x+y = \\min\\{x,y\\} 
      + \\max\\{x,y\\}\\) is a formula.} \\\\ 
   \\framebox[1.1\\width][s]{For example \\(x+y = \\min\\{x,y\\} 
      + \\max\\{x,y\\}\\) is a formula.} \\\\ 
   \\framebox[1.125\\width][s]{For example \\(x+y = \\min\\{x,y\\} 
      + \\max\\{x,y\\}\\) is a formula.} \\\\ 
\\end{array}\\] 
\\end{document} 
EndD