diff options
Diffstat (limited to 'Master/texmf-dist/doc/fonts/umrand/umrand3.tex')
-rw-r--r-- | Master/texmf-dist/doc/fonts/umrand/umrand3.tex | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/Master/texmf-dist/doc/fonts/umrand/umrand3.tex b/Master/texmf-dist/doc/fonts/umrand/umrand3.tex deleted file mode 100644 index 294e77580f6..00000000000 --- a/Master/texmf-dist/doc/fonts/umrand/umrand3.tex +++ /dev/null @@ -1,100 +0,0 @@ -\originalTeX -% stolen from testfont.tex -\tracinglostchars=0 -\tolerance=1000 -\raggedbottom -\parindent=0pt -\newlinechar=`@ -\hyphenpenalty=200 -\doublehyphendemerits=30000 -\newcount\m \newcount\n \newcount\p \newdimen\dim -\chardef\other=12 -\def\today{\ifcase\month\or - January\or February\or March\or April\or May\or June\or - July\or August\or September\or October\or November\or December\fi - \space\number\day, \number\year} -\def\hours{\n=\time \divide\n 60 - \m=-\n \multiply\m 60 \advance\m \time - \twodigits\n\twodigits\m} -\def\twodigits#1{\ifnum #1<10 0\fi \number#1} -\def\setbaselineskip{\setbox0=\hbox{\n=0 -\loop\char\n \ifnum \n<255 \advance\n 1 \repeat} -\baselineskip=6pt \advance\baselineskip\ht0 \advance\baselineskip\dp0 } -\def\setchar#1{{\escapechar-1\message{\string#1 character = }% - \def\do##1{\catcode`##1=\other}\dospecials - \read-1 to\next - \expandafter\finsetchar\next\next#1}} -\def\finsetchar#1#2\next#3{\global\chardef#3=`#1 - \ifnum #3=`\# \global\chardef#3=#2 \fi} -\def\promptthree{\setchar\background - \setchar\starting \setchar\ending} -\def\init#1{%\message{@Name of the font to test = } - % \read-1 to\fontname - \def\fontname{#1} - \font\testfont=\fontname - \leftline{\sevenrm Test of \fontname\unskip\ on \today\ at \hours} - \medskip - \testfont \setbaselineskip - \ifdim\fontdimen6\testfont<10pt \rightskip=0pt plus 20pt - \else\rightskip=0pt plus 2em \fi - \spaceskip=\fontdimen2\testfont % space between words (\raggedright) - \xspaceskip=\fontdimen2\testfont \advance\xspaceskip by\fontdimen7\testfont - %\message{Now type a test command (\string\help\space for help):} - } -\def\oct#1{\hbox{\rm\'{}\kern-.2em\it#1\/\kern.05em}} % octal constant -\def\hex#1{\hbox{\rm\H{}\tt#1}} % hexadecimal constant -\def\setdigs#1"#2{\gdef\h{#2}% \h=hex prefix; \0\1=corresponding octal - \m=\n \divide\m by 64 \xdef\0{\the\m}% - \multiply\m by-64 \advance\m by\n \divide\m by 8 \xdef\1{\the\m}} -\def\testrow{\setbox0=\hbox{\penalty 1\def\\{\char"\h}% - \\0\\1\\2\\3\\4\\5\\6\\7\\8\\9\\A\\B\\C\\D\\E\\F% - \global\p=\lastpenalty}} % \p=1 if none of the characters exist -\def\oddline{\cr - \noalign{\nointerlineskip} - \multispan{19}\hrulefill& - \setbox0=\hbox{\lower 2.3pt\hbox{\hex{\h x}}}\smash{\box0}\cr - \noalign{\nointerlineskip}} -\newif\ifskipping -\def\evenline{\loop\skippingfalse - \ifnum\n<256 \m=\n \divide\m 16 \chardef\next=\m - \expandafter\setdigs\meaning\next \testrow - \ifnum\p=1 \skippingtrue \fi\fi - \ifskipping \global\advance\n 16 \repeat - \ifnum\n=256 \let\next=\endchart\else\let\next=\morechart\fi - \next} -\def\morechart{\cr\noalign{\hrule\penalty5000} - \chartline \oddline \m=\1 \advance\m 1 \xdef\1{\the\m} - \chartline \evenline} -\def\chartline{&\oct{\0\1x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&} -\def\chartstrut{\lower4.5pt\vbox to14pt{}} -\def\table{$$\global\n=0 - \halign to\hsize\bgroup - \chartstrut##\tabskip0pt plus10pt& - &\hfil##\hfil&\vrule##\cr - \lower6.5pt\null - &&&\oct0&&\oct1&&\oct2&&\oct3&&\oct4&&\oct5&&\oct6&&\oct7&\evenline} -\def\endchart{\cr\noalign{\hrule} - \raise11.5pt\null&&&\hex 8&&\hex 9&&\hex A&&\hex B& - &\hex C&&\hex D&&\hex E&&\hex F&\cr\egroup$$\par} -\def\:{\setbox0=\hbox{\char\n}% - \ifdim\ht0>7.5pt\reposition - \else\ifdim\dp0>2.5pt\reposition\fi\fi - \box0\global\advance\n 1 } -\def\reposition{\setbox0=\vbox{\kern2pt\box0}\dim=\dp0 - \advance\dim 2pt \dp0=\dim} -\def\centerlargechars{ - \def\reposition{\setbox0=\hbox{$\vcenter{\kern2pt\box0\kern2pt}$}}} -% -\newpage -\ifx\selectfont\undefined - \font\sevenrm=cmr7 - \else - \def\sevenrm{\fontfamily{cmr}\fontshape{n}\fontseries{m}\fontsize{7}{7pt}\selectfont} -\fi -\pagestyle{empty} -\init{umranda at 20pt} -\table -\newpage -\init{umrandb at 20pt} -\table -\endinput |