%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% This is the file ma1ex.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
`ma1ex.mtx'; it selects and renames Mathematica glyphs in the Math1 font
to those in a traditional math extension font layout.

\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}}

\renameas{Uacute}{integraltext}
\renameas{ecircumflex}{integraldisplay}
\renameas{iacute}{summationtext}
\renameas{igrave}{summationdisplay}
\renameas{icircumflex}{producttext}
\renameas{idieresis}{productdisplay}
\renameas{ntilde}{uniontext}
\renameas{oacute}{uniondisplay}
\renameas{ograve}{intersectiontext}
\renameas{ocircumflex}{intersectiondisplay}
\renameas{odieresis}{logicalortext}
\renameas{otilde}{logicalordisplay}
\renameas{uacute}{logicalandtext}
\renameas{ugrave}{logicalanddisplay}

\endmetrics