%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% This is the file ma3sy.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
`ma3sy.mtx'; it selects and renames Mathematica glyphs in the Math3 font
to those in a traditional math symbol 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}}

\renameandsave{exclam}{integral}
\renameas{parenleft}{union}
\renameas{quotesingle}{intersection}
\renameas{parenright}{unionmulti}
\renameas{asterisk}{intersectionsq}
\renameas{plus}{unionsq}
\renameas{asciicircum}{equivasymptotic}
\renameas{m}{subsetsqequal}
\renameas{braceright}{supersetsqequal}
\renameas{Adieresis}{curlyless}
\renameas{Aring}{precedesequal}
\renameas{ecircumflex}{curlygreater}
\renameas{edieresis}{followsequal}
\renameas{degree}{minusplus}
\renameas{cent}{turnstileleft}
\renameas{section}{turnstileright}
\renameas{registered}{latticetop}
\renameas{trademark}{wreathproduct}
\renameas{uacute}{owner}
\renameas{ucircumflex}{circleminus}
\renameas{udieresis}{circledot}
\renameas{Egrave}{openbullet}
\renameandsave{Edieresis}{bullet}
\renameandsave{Otilde}{section}
\renameandsave{OE}{paragraph}
\renameandsave{divide}{dagger}
\renameandsave{lozenge}{daggerdbl}
\renameas{Ucircumflex}{triangle}
\renameas{dotlessi}{triangleinv}


\endmetrics