summaryrefslogtreecommitdiff
path: root/fonts/utilities/vfinst/dotlessj.mtx
blob: 36c4dab97ab5aeb6e350c685a09ca666f08d7569 (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 VFinst package
%% (version 0.95, December, 1997) for PostScript Type1 font 
%% installation.  (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

\metrics

\ifisglyph{j}\then
  \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}}
     \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}}
  \endresetglyph
\fi

\endmetrics