summaryrefslogtreecommitdiff
path: root/fonts/utilities/mathkit/dotlessj.mtx
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