%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% This is the file ma_ihax.mtx, part of the MathInst package
%% (version 1.0, August, 1998) for math font 
%% generation.  (Author: Alan Hoenig, ajhjj@cunyvm.cuny.edu)
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\relax 

\metrics 

\needsfontinstversion{1.315} 

% \shiftglyph takes four parameters: 
% 
% #1 the name of the glyph 
% #2 the amount of extra space at the left 
% #3 the amount of extra space at the right 
% #4 the amount to move in subscripts (should be -ve) 

\setcommand\shiftglyph#1#2#3#4{ 
   \ifisglyph{#1}\then
     \resetglyph{#1} 
     	\movert{#2} 
     	\glyph{#1}{1000} 
     	\movert{#4} 
     	\resetitalic{\add{\italic{#1}}{\sub{#3}{#4}}} 
     \endresetglyph 
   \fi
} 

% \unfakable produces a missing glyph warning. 

\setcommand\unfakable#1{ 
   \setglyph{#1} 
      \glyphrule{500}{500} 
      \glyphwarning{missing glyph `#1'} 
   \endsetglyph 
} 

% Zero the depth of a glyph. 

\setcommand\zerodepth#1{
   \ifisglyph{#1}\then 
      \resetglyph{#1} 
      	 \glyph{#1}{1000} 
      	 \resetdepth{0} 
      \endresetglyph
   \fi 
} 

% Values produced by trial and error... 

\shiftglyph{C}{-50}{0}{-25} 
\shiftglyph{E}{0}{50}{0} 
\shiftglyph{F}{0}{50}{-100} 
\shiftglyph{H}{0}{25}{-25} 
\shiftglyph{I}{0}{0}{-25} 
\shiftglyph{K}{0}{0}{-25} 
\shiftglyph{J}{0}{0}{-25} 
\shiftglyph{N}{0}{0}{-25} 
\shiftglyph{P}{0}{0}{-100} 
\shiftglyph{T}{0}{50}{-75} 
\shiftglyph{U}{-50}{50}{-25} 
\shiftglyph{V}{-50}{50}{-50} 
\shiftglyph{W}{-50}{50}{-50} 
\shiftglyph{X}{0}{50}{-25} 
\shiftglyph{Y}{-50}{50}{-50} 
\shiftglyph{b}{0}{-25}{0} 
\shiftglyph{d}{0}{25}{0} 
\shiftglyph{f}{\scale{\depth{f}}{750}}{0}{25} 
\shiftglyph{g}{0}{-50}{0} 
\shiftglyph{j}{150}{25}{0} 
\shiftglyph{l}{0}{50}{0} 
\shiftglyph{o}{0}{-50}{0} 
\shiftglyph{p}{75}{-25}{0} 
\shiftglyph{t}{-25}{50}{0} 
\shiftglyph{Upsilon}{0}{0}{-50} 
\shiftglyph{Upsilon}{0}{0}{-100} 
\shiftglyph{weierstrass}{-100}{-200}{-150} 

\unfakable{rho1} 

\ifisglyph{omega1}\then
    \setglyph{pi1} 
       \glyph{omega1}{1000} 
    \endsetglyph
\fi 

\ifisglyph{epsilon}\then
    \setglyph{epsilon1} 
       \glyph{epsilon}{1000} 
    \endsetglyph 
\fi

% \resetglyph{vector} 
%    \movert{-100} 
%    \glyph{vector}{1000} 
%    \movert{100} 
% \endresetglyph 

% Accents have to have zero depth. 

\zerodepth{acute} 
\zerodepth{grave} 
\zerodepth{caron} 
\zerodepth{breve} 
\zerodepth{macron} 
\zerodepth{ring} 
\zerodepth{circumflex} 
\zerodepth{dotaccent} 
\zerodepth{tilde} 
\zerodepth{dieresis} 

\ifisglyph{tie}\then
  \resetglyph{tie}
    \push
      \movert{\div{\width{tie}}{2}}
      \glyph{tie}{1000}
    \pop
    \samesize{tie}
  \endresetglyph
\fi
\ifisglyph{vector}\then
  \resetglyph{vector}
    \moveup{1}
    \glyph{vector}{1000}
    \moveup{-1}
  \endresetglyph
\fi

\endmetrics