diff options
Diffstat (limited to 'fonts/utilities/vfinst/dotlessj.mtx')
-rw-r--r-- | fonts/utilities/vfinst/dotlessj.mtx | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/fonts/utilities/vfinst/dotlessj.mtx b/fonts/utilities/vfinst/dotlessj.mtx new file mode 100644 index 0000000000..36c4dab97a --- /dev/null +++ b/fonts/utilities/vfinst/dotlessj.mtx @@ -0,0 +1,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 |