home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _tex / tex / source / l2esrc1 / !TeX / LaTeX2eSrc / nfssfont.tex (.txt) < prev    next >
LaTeX Document  |  1994-09-26  |  12KB  |  255 lines
  1. %% This is file `nfssfont.tex', generated 
  2. %% on <1994/9/26> with the docstrip utility (2.2h).
  3. %% The original source files were:
  4. %% nfssfont.dtx  (with options: `code')
  5. %% Copyright 1994 the LaTeX3 project and the individual authors. 
  6. %% All rights reserved. For further copyright information see the file 
  7. %% legal.txt, and any other copyright indicated in this file. 
  8. %% This file is part of the LaTeX2e system. 
  9. %% ---------------------------------------- 
  10. %% This system is distributed in the hope that it will be useful, 
  11. %% but WITHOUT ANY WARRANTY; without even the implied warranty of 
  12. %% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
  13. %% IMPORTANT NOTICE: 
  14. %% For error reports in case of UNCHANGED versions see bugs.txt. 
  15. %% Please do not request updates from us directly. Distribution is 
  16. %% done through Mail-Servers and TeX organizations. 
  17. %% You are not allowed to change this file. 
  18. %% You are allowed to distribute this file under the condition that 
  19. %% it is distributed together with all files mentioned in manifest.txt. 
  20. %% If you receive only some of these files from someone, complain! 
  21. %% You are NOT ALLOWED to distribute this file alone. You are NOT 
  22. %% ALLOWED to take money for the distribution or use of either this 
  23. %% file or a changed version, except for a nominal charge for copying 
  24. %% etc. 
  25. \def\fileversion{v2.0c}
  26. \def\filedate{1994/02/26}
  27. \def\docdate {1993/02/26}
  28. %% \CharacterTable
  29. %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
  30. %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
  31. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  32. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  33. %%   Dollar        \$     Percent       \%     Ampersand     \&
  34. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  35. %%   Asterisk      \*     Plus          \+     Comma         \,
  36. %%   Minus         \-     Point         \.     Solidus       \/
  37. %%   Colon         \:     Semicolon     \;     Less than     \<
  38. %%   Equals        \=     Greater than  \>     Question mark \?
  39. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  40. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  41. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  42. %%   Right brace   \}     Tilde         \~}
  43. \documentstyle{article}               %FMi
  44. \nofiles                              %FMi
  45. \textwidth=470pt                      %FMi
  46. \oddsidemargin=0pt                    %FMi
  47. \textheight=1000pt                    %FMi
  48. \def\sevenrm{\fontsize{7}{9pt}\rmfamily}    %FMi
  49. \typeout{**********************************************}
  50. \typeout{* NFSS font test program version <\fileversion>}
  51. \typeout{*}
  52. \typeout{* Follow the instructions}
  53. \typeout{**********************************************}
  54. \typeout{}
  55. \tracinglostchars=0
  56. \tolerance=1000
  57. \raggedbottom
  58. \parindent=0pt
  59. \hyphenpenalty=200
  60. \doublehyphendemerits=30000
  61. \newcount\m \newcount\n \newcount\p \newdimen\dim
  62. \chardef\other=12
  63. \def\today{\ifcase\month\or
  64.   January\or February\or March\or April\or May\or June\or
  65.   July\or August\or September\or October\or November\or December\fi
  66.   \space\number\day, \number\year}
  67. \def\hours{\n=\time \divide\n 60
  68.   \m=-\n \multiply\m 60 \advance\m \time
  69.   \twodigits\n\twodigits\m}
  70. \def\twodigits#1{\ifnum #1<10 0\fi \number#1}
  71. \def\init{\message{^^JName of the font to test = }
  72.   \read-1 to\fontname \startfont
  73.   \message{Now type a test command (\string\help\space for help):}}
  74. \def\startfont{\font\testfont=\fontname
  75.   \leftline{\sevenrm Test of \fontname\unskip\ on \today\ at \hours}
  76.   \medskip
  77.   \testfont \setbaselineskip
  78.   \ifdim\fontdimen6\testfont<10pt \rightskip=0pt plus 20pt
  79.   \else\rightskip=0pt plus 2em \fi
  80.   \spaceskip=\fontdimen2\testfont % space between words (\raggedright)
  81.   \xspaceskip=\fontdimen2\testfont \advance\xspaceskip
  82.   by\fontdimen7\testfont}
  83. {\catcode`\|=0 \catcode`\\=\other
  84. |gdef|help{|message{%
  85. \init switches to another font;^^J%
  86. \end or \bye finishes the run;^^J%
  87. \table prints the font layout in tabular format;^^J%
  88. \text prints a sample text, assuming TeX text font conventions;^^J%
  89. \sample combines \table and \text;^^J%
  90. \mixture mixes a background character with a series of others;^^J%
  91. \alternation interleaves a background character with a series;^^J%
  92. \alphabet prints all lowercase letters within a given background;^^J%
  93. \ALPHABET prints all uppercase letters within a given background;^^J%
  94. \series prints a series of letters within a given background;^^J%
  95. \lowers prints a comprehensive test of lowercase;^^J%
  96. \uppers prints a comprehensive test of uppercase;^^J%
  97. \digits prints a comprehensive test of numerals;^^J%
  98. \math prints a comprehensive test of TeX math italic;^^J%
  99. \names prints a text that mixes upper and lower case;^^J%
  100. \punct prints a punctuation test;^^J%
  101. \bigtest combines many of the above routines;^^J%
  102. \help repeats this message;^^J%
  103. and you can use ordinary TeX commands (e.g., to \input a file).}}}
  104. \def\setbaselineskip{\setbox0=\hbox{\n=0
  105. \loop\char\n \ifnum \n<255 \advance\n 1 \repeat}
  106. \baselineskip=6pt \advance\baselineskip\ht0 \advance\baselineskip\dp0 }
  107. \def\setchar#1{{\escapechar-1\message{\string#1 character = }%
  108.   \def\do##1{\catcode`##1=\other}\dospecials
  109.   \read-1 to\next
  110.   \expandafter\finsetchar\next\next#1}}
  111. \def\finsetchar#1#2\next#3{\global\chardef#3=`#1
  112.   \ifnum #3=`\# \global\chardef#3=#2 \fi}
  113. \def\promptthree{\setchar\background
  114.   \setchar\starting \setchar\ending}
  115. \def\mixture{\promptthree \domix\mixpattern}
  116. \def\alternation{\promptthree \domix\altpattern}
  117. \def\mixpattern{\0\1\0\0\1\1\0\0\0\1\1\1\0\1}
  118. \def\altpattern{\0\1\0\1\0\1\0\1\0\1\0\1\0\1\0\1\0}
  119. \def\domix#1{\par\chardef\0=\background \n=\starting
  120.   \loop \chardef\1=\n #1\endgraf
  121.   \ifnum \n<\ending \advance\n 1 \repeat}
  122. \def\!{\discretionary{\background}{\background}{\background}}
  123. \def\series{\promptthree \!\doseries\starting\ending\par}
  124. \def\doseries#1#2{\n=#1\loop\char\n\!\ifnum\n<#2\advance\n 1 \repeat}
  125. \def\complower{\!\doseries{`a}{`z}\doseries{'31}{'34}\par}
  126. \def\compupper{\!\doseries{`A}{`Z}\doseries{'35}{'37}\par}
  127. \def\compdigs{\!\doseries{`0}{`9}\par}
  128. \def\alphabet{\setchar\background\complower}
  129. \def\ALPHABET{\setchar\background\compupper}
  130. \def\lowers{\docomprehensive\complower{`a}{`z}{'31}{'34}}
  131. \def\uppers{\docomprehensive\compupper{`A}{`Z}{'35}{'37}}
  132. \def\digits{\docomprehensive\compdigs{`0}{`4}{`5}{`9}}
  133. \def\docomprehensive#1#2#3#4#5{\par\chardef\background=#2
  134.   \loop{#1} \ifnum\background<#3\m=\background\advance\m 1
  135.   \chardef\background=\m \repeat \chardef\background=#4
  136.   \loop{#1} \ifnum\background<#5\m=\background\advance\m 1
  137.   \chardef\background=\m \repeat}
  138. \def\names{ {\AA}ngel\aa\ Beatrice Claire
  139.   Diana \'Erica Fran\c{c}oise Ginette H\'el\`ene Iris
  140.   Jackie K\=aren {\L}au\.ra Mar{\'\i}a N\H{a}ta{\l}{\u\i}e {\O}ctave
  141.   Pauline Qu\^eneau Roxanne Sabine T\~a{\'\j}a Ur\v{s}ula
  142.   Vivian Wendy Xanthippe Yv{\o}nne Z\"azilie\par}
  143. \def\punct{\par\dopunct{min}\dopunct{pig}\dopunct{hid}
  144.   \dopunct{HIE}\dopunct{TIP}\dopunct{fluff}
  145.   \$1,234.56 + 7/8 = 9\% @ \#0\par}
  146. \def\dopunct#1{#1,\ #1:\ #1;\ `#1'\ ?`#1?\ !`#1!\ (#1)\ [#1]\
  147.                #1*\ #1.\par}
  148. \def\bigtest{\sample
  149.   hamburgefonstiv HAMBURGEFONSTIV\par
  150.   \names \punct \lowers \uppers \digits}
  151. \def\math{\textfont1=\testfont \skewchar\testfont=\skewtrial
  152.  \mathchardef\Gamma="100 \mathchardef\Delta="101
  153.  \mathchardef\Theta="102 \mathchardef\Lambda="103 \mathchardef\Xi="104
  154.  \mathchardef\Pi="105 \mathchardef\Sigma="106 \mathchardef\Upsilon="107
  155.  \mathchardef\Phi="108 \mathchardef\Psi="109 \mathchardef\Omega="10A
  156.  \def\ii{i} \def\jj{j}
  157.  \def\\##1{|##1|+}\mathtrial
  158.  \def\\##1{##1_2+}\mathtrial
  159.  \def\\##1{##1^2+}\mathtrial
  160.  \def\\##1{##1/2+}\mathtrial
  161.  \def\\##1{2/##1+}\mathtrial
  162.  \def\\##1{##1,{}+}\mathtrial
  163.  \def\\##1{d##1+}\mathtrial
  164.  \let\ii=\imath \let\jj=\jmath \def\\##1{\hat##1+}\mathtrial}
  165. \newcount\skewtrial \skewtrial='177
  166. \def\mathtrial{$\\A \\B \\C \\D \\E \\F \\G \\H \\I \\J \\K \\L \\M \\N
  167.  \\O \\P \\Q \\R \\S \\T \\U \\V \\W \\X \\Y \\Z \\a \\b \\c \\d \\e \\f
  168.  \\g \\h \\\ii \\\jj \\k \\l \\m \\n \\o \\p \\q \\r \\s \\t \\u \\v \\w
  169.  \\x \\y \\z \\\alpha \\\beta \\\gamma \\\delta \\\epsilon \\\zeta
  170.  \\\eta \\\theta \\\iota \\\ka