3 % The following adjustments (as originally derived by Alan Jeffrey)
4 % are tuned for Times-Italic and non-oblique Adobe Symbol.
8 \needsfontinstversion{1.800}
10 % \shiftglyph takes four parameters:
12 % #1 the name of the glyph
13 % #2 the amount of extra space at the left
14 % #3 the amount of extra space at the right
15 % #4 the amount of extra space for subscripts
17 \setcommand\shiftglyph#1#2#3#4{
22 \resetitalic{\add{\italic{#1}}{\sub{#3}{#4}}}
26 % \skewkern sets a skewchar kern, assuming that `tie'
29 % #1 the name of the glyph
30 % #2 the amount of skewchar kerning
32 \setcommand\skewkern#1#2{\setkern{#1}{tie}{#2}}
37 \shiftglyph{C}{-50}{0}{-25}
39 \shiftglyph{E}{0}{50}{0}
40 \shiftglyph{F}{0}{50}{-100}
42 \shiftglyph{H}{0}{25}{-25}
43 \shiftglyph{I}{0}{0}{-25}
44 \shiftglyph{J}{0}{0}{-25}
45 \shiftglyph{K}{0}{0}{-25}
48 \shiftglyph{N}{0}{0}{-25}
50 \shiftglyph{P}{0}{0}{-100}
54 \shiftglyph{T}{0}{50}{-75}
55 \shiftglyph{U}{-50}{50}{-25}
56 \shiftglyph{V}{-50}{50}{-50}
57 \shiftglyph{W}{-50}{50}{-50}
58 \shiftglyph{X}{0}{50}{-25}
59 \shiftglyph{Y}{-50}{50}{-50}
63 \shiftglyph{b}{0}{-25}{0}
65 \shiftglyph{d}{0}{25}{0}
67 \shiftglyph{f}{150}{0}{25}
68 \shiftglyph{g}{0}{-50}{0}
71 \shiftglyph{j}{150}{25}{0}
73 \shiftglyph{l}{0}{50}{0}
76 \shiftglyph{o}{0}{-50}{0}
77 \shiftglyph{p}{75}{-25}{0}
81 \shiftglyph{t}{-25}{50}{0}
89 \shiftglyph{Upsilon}{0}{0}{-150} % was: -50 -100, adds up to -150
90 \shiftglyph{weierstrass}{-100}{-200}{-150}
143 \skewkern{dotlessi}{50}
144 \skewkern{dotlessj}{50}
146 \skewkern{upsilon}{25}
148 \skewkern{lambda}{-75}
149 \skewkern{weierstrass}{175}
150 \skewkern{lscript}{125}