blob: 2617137e9369f11881da5644b60c600117651420 (
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
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% This is the file dotlessj.mtx, part of the MathKit package
%% (version 0.7, January , 1998) for math font
%% generation. (Author: Alan Hoenig, ajhjj@cunyvm.cuny.edu)
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\relax
This fontinst file sets a dotless j glyph for a TeX
math italic font. The following code is due to Thierry Bouche,
a paper of whose on virtual math fonts can be found at
ftp://fourier.ujf-grenoble.fr/pub/contrib-tex/gut/mathfonts-pk.ps.gz
(Alan Hoenig made a few very minor changes only.)
\metrics
\resetglyph{dotlessj}
\glyphspecial{ps: gsave gsave}
\push
\moveup{\neg{\depth{j}}}
\movert{\neg{\width{j}}}
\glyphspecial{ps: currentpoint /JDepth exch def /JLeft exch def}
\moveup{\add{\depth{j}}{\height{dotlessi}}}
%\movert{\mul{\width{j}}{2}}
\movert{\scale{\width{j}}{2500}} %% AH
\glyphspecial{ps: currentpoint /IHeight exch def /JRight exch def grestore}
\glyphspecial{ps: JLeft JDepth moveto JLeft neg JRight add 0 rlineto
0 JDepth neg IHeight add rlineto JLeft neg JRight add neg 0
rlineto 0 JDepth neg IHeight add neg rlineto closepath clip}
\pop
\glyph{j}{1000}
\glyphspecial{ps: grestore}
\resetdepth{\depth{j}}
\resetwidth{\width{j}}
\resetitalic{\italic{j}}
\resetheight{\height{dotlessi}} %% AH
\endresetglyph
\endmetrics
|
