%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% This is the file ma1mi.mtx, part of the `makemma' subpackage
%% of the MathInst package
%% (version 0.8, January , 1998) for math font 
%% generation.  (Author: Alan Hoenig, ajhjj@cunyvm.cuny.edu)
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\relax

This file renames glyphs to a more standard name.  This is file
`ma1mi.mtx'; it selects and renames Mathematica glyphs in the Math1 font
to those in a traditional math italic font.

(We'll get the uppercase Greeks by slanting the Math1 font, but we
can't do that ahead of time since we don't know the proper italic
angle to use.  Nevertheless, let's incorporate them into this font,
and it will be *this* font that we later slant.)

\metrics

\setcommand\renameas#1#2{\ifisglyph{#1}\then
  \setglyph{#2}
    \glyph{#1}{1000}
  \endsetglyph
  \unsetglyph{#1}
\fi}

%% Some glyphs are, by chance, properly named.  We need to save them,
%% and not unset them when we cancel the Adobe encoding.

\setcommand\renameandsave#1#2{\ifisglyph{#1}\then
  \setglyph{#2saved}
    \glyph{#1}{1000}
  \endsetglyph
  \unsetglyph{#1}
\fi}
\setcommand\save#1{\renameas{#1}{#1saved}}

  \save{slash}
  \save{greater}
  \save{less}
  \renameandsave{D}{Delta}
  \renameas{F}{Phi}
  \renameas{G}{Gamma}
  \renameas{J}{theta1}% vartheta
  \renameas{L}{Lambda}
  \renameas{P}{Pi}
  \renameas{Q}{Theta}
  \renameas{S}{Sigma}
  \renameas{U}{Upsilon1}
  \renameas{V}{sigma1}% final sigma
  \renameas{X}{Xi}
  \renameandsave{W}{Omega}
  \renameas{Y}{Psi}
  \renameas{a}{alpha}
  \renameas{b}{beta}
  \renameas{c}{chi}
  \renameas{d}{delta}
  \renameas{e}{epsilon1}
  \renameas{f}{phi}
  \renameas{g}{gamma}
  \renameas{h}{eta}
  \renameas{i}{iota}
  \renameas{j}{phi1}% varphi
  \renameas{k}{kappa}
  \renameas{l}{lambda}
  \renameandsave{m}{mu}
  \renameas{n}{nu}
  \renameas{o}{omicron}
  \renameandsave{p}{pi}
  \renameas{q}{theta}
  \renameas{r}{rho}
  \renameas{s}{sigma}
  \renameas{t}{tau}
  \renameas{u}{upsilon}
  \renameas{v}{pi1}% varpi
  \renameas{w}{omega}
  \renameas{x}{xi}
  \renameas{y}{psi}
  \renameas{z}{zeta}
  \save{partialdiff}
  \renameas{radical}{weierstrass}

\endmetrics