%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% This is the file fraks.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 the fraktur letters of the Mathematica font
mma5 (Math5) into more acceptable names.  It is a fontinst file.

January 13, 1998.  Alan Hoenig

\metrics

\setcommand\renameto#1#2{\ifisglyph{#2}\then
  \resetglyph{#1saved}\glyph{#2}{1000}\endresetglyph
  \fi}

%% The frakturs occupy positions 128-153 (A-Z) and 
%% 154-179 (a-z).

\renameto{A}{Adieresis}
\renameto{B}{Aring}
\renameto{C}{Ccedilla}
\renameto{D}{Eacute}
\renameto{E}{Ntilde}
\renameto{F}{Odieresis}
\renameto{G}{Udieresis}
\renameto{H}{aacute}
\renameto{I}{agrave}
\renameto{J}{acircumflex}
\renameto{K}{adieresis}
\renameto{L}{atilde}
\renameto{M}{aring}
\renameto{N}{ccedilla}
\renameto{O}{eacute}
\renameto{P}{egrave}
\renameto{Q}{ecircumflex}
\renameto{R}{edieresis}
\renameto{S}{iacute}
\renameto{T}{igrave}
\renameto{U}{icircumflex}
\renameto{V}{idieresis}
\renameto{W}{ntilde}
\renameto{X}{oacute}
\renameto{Y}{ograve}
\renameto{Z}{ocircumflex}
\renameto{a}{odieresis}
\renameto{b}{otilde}
\renameto{c}{uacute}
\renameto{d}{ugrave}
\renameto{e}{ucircumflex}
\renameto{f}{udieresis}
\renameto{g}{dagger}
\renameto{h}{degree}
\renameto{i}{cent}
\renameto{j}{sterling}
\renameto{k}{section}
\renameto{l}{bullet}
\renameto{m}{paragraph}
\renameto{n}{germandbls}
\renameto{o}{registered}
\renameto{p}{copyright}
\renameto{q}{trademark}
\renameto{r}{acute}
\renameto{s}{dieresis}
\renameto{t}{notequal}
\renameto{u}{AE}
\renameto{v}{Oslash}
\renameto{w}{infinity}
\renameto{x}{plusminus}
\renameto{y}{lessequal}
\renameto{z}{greaterequal}

\endmetrics