summaryrefslogtreecommitdiff
path: root/fonts/utilities/mathkit/dos/dotlessj.mtx
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/utilities/mathkit/dos/dotlessj.mtx')
-rw-r--r--fonts/utilities/mathkit/dos/dotlessj.mtx43
1 files changed, 43 insertions, 0 deletions
diff --git a/fonts/utilities/mathkit/dos/dotlessj.mtx b/fonts/utilities/mathkit/dos/dotlessj.mtx
new file mode 100644
index 0000000000..8c562aa156
--- /dev/null
+++ b/fonts/utilities/mathkit/dos/dotlessj.mtx
@@ -0,0 +1,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