summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fontinst/base/test/speedtest1.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/fontinst/base/test/speedtest1.tex')
-rw-r--r--Master/texmf-dist/doc/fontinst/base/test/speedtest1.tex62
1 files changed, 62 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/fontinst/base/test/speedtest1.tex b/Master/texmf-dist/doc/fontinst/base/test/speedtest1.tex
new file mode 100644
index 00000000000..a92823e7210
--- /dev/null
+++ b/Master/texmf-dist/doc/fontinst/base/test/speedtest1.tex
@@ -0,0 +1,62 @@
+\input fontinst.sty
+
+\edef\spacecatcode{\the\catcode`\ }
+\edef\nlcatcode{\the\catcode`\^^M}
+\edef\atcatcode{\the\catcode`\@}
+\edef\underscorecatcode{\the\catcode`\_}
+\edef\tildecatcode{\the\catcode`\~}
+\catcode`\ =9
+\catcode`\^^M=9
+\catcode`\@=11
+\catcode`\_=11
+\catcode`\~=10
+
+\def\Mtxtopl#1#2{{
+ \open_out{#2.pl}
+ \top_of_pl_hook
+ \out_line{(COMMENT~raw~font~#2~created~by~fontinst~
+ v\fontinstversion)}
+ \out_line{}
+ \out_line{(COMMENT~Filename:~#2.pl)}
+ \out_line{(COMMENT~Created~by:~tex~\jobname)}
+ \out_line{(COMMENT~Created~using:~\string\mtxtopl{#1}{#2})}
+ \out_line{}
+ \out_line{(COMMENT~This~file~can~be~turned~into~a~ligless~TeX~font~
+ with)}
+ \out_line{(COMMENT~pltotfm~#2.pl~#2.tfm)}
+ \out_line{}
+ \out_line{(COMMENT~THIS~FILE~CAN~THEN~BE~DELETED.)}
+ \out_line{}
+ \out_line{(DESIGNSIZE~R~10.0)}
+ \out_line{}
+ \let\setglyph=\iffalse
+ \let\endsetglyph=\fi
+ \let\setkern=\gobble_three
+ \let\setrawglyph=\Pl_raw_glyph
+ \inputmtx{#1}
+ \out_line{}
+ \out_line{(COMMENT~END~OF~FILE~#2.pl)}
+ \close_out{Raw~font}
+}}
+\def\Pl_raw_glyph#1#2#3#4#5#6#7#8{
+ \a_count=#4
+ \out_line{(CHARACTER~\vpl_int\a_count\space(COMMENT~#1)}
+ \out_lline{(CHARWD~R~\make_factor{#5})}
+ \out_lline{(CHARHT~R~\make_factor{#6})}
+ \out_lline{(CHARDP~R~\make_factor{#7})}
+ \out_lline{(CHARIC~R~\make_factor{#8})}
+ \out_lline{)}
+}
+
+
+\catcode`\@=\atcatcode
+\catcode`\^^M=\nlcatcode
+\catcode`\ =\spacecatcode
+\catcode`\~=\tildecatcode
+\catcode`\_=\underscorecatcode
+
+\batchmode
+\for(n){1}{500}{1}\Mtxtopl{cmr5}{cmr5.new}\endfor(n)
+
+\bye
+