blob: a92823e7210ebf82d3f431a9b705a6677643db98 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
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
|