%***********
%ADDED 13 MAY 86 by Geeti
%This macro will ensure all italic alpha characters called for when in maths mode
%will be taken from the italic font.
%activated 14/05/86
% DRE 25-11-1991 -- changed it to map to family 4 rather than 8
% DRE 29-10-1992 completely revised to use family 0, and everymath/everydisplay
% DRE 1-2-1993 added definitions for uppercase Greek characters
% DRE 24-1-1994 removed everymath/everydisplay and mapped family 4 to
%               Times Italic for alphabetics

%families:
% 0 Times Roman
% 1 maths italic
% 2 maths
% 3 maths
% 4 it
% 5 sl
% 6 rm
% 7 tt
% 8 sf
% 9 no textfont 9
% 10 no alphabetics
% 11 rm

\def\trueital{
    % copyright symbol -- from Symbol font
    \font\syfont=psyr at 8pt
    \def\copyright{{\syfont\symbol{211}}}

    \font\tenit=ptmri at 12pt
    \font\sevit=ptmri at 9pt
    \font\fivit=ptmri at 7pt

    \textfont4=\twelveit
    \scriptfont4=\nineit
    \scriptscriptfont4=\sevenit
    % 0-9
    \mathcode"30="7030\mathcode"31="7031\mathcode"32="7032
    \mathcode"33="7033\mathcode"34="7034\mathcode"35="7035
    \mathcode"36="7036\mathcode"37="7037\mathcode"38="7038
    \mathcode"39="7039
    % , .
    \mathcode"2C="702C\mathcode"2E="702E
    % : ;
    \mathcode"3A="703A\mathcode"3B="703B
    % A-Z
    \mathcode"41="7441\mathcode"42="7442\mathcode"43="7443
    \mathcode"44="7444\mathcode"45="7445\mathcode"46="7446
    \mathcode"47="7447\mathcode"48="7448\mathcode"49="7449
    \mathcode"4A="744A\mathcode"4B="744B\mathcode"4C="744C
    \mathcode"4D="744D\mathcode"4E="744E\mathcode"4F="744F
    \mathcode"50="7450\mathcode"51="7451\mathcode"52="7452
    \mathcode"53="7453\mathcode"54="7454\mathcode"55="7455
    \mathcode"56="7456\mathcode"57="7457\mathcode"58="7458
    \mathcode"59="7459\mathcode"5A="745A
    % a-z
    \mathcode"61="7461
    \mathcode"62="7462\mathcode"63="7463\mathcode"64="7464
    \mathcode"65="7465\mathcode"66="7466\mathcode"67="7467
    \mathcode"68="7468\mathcode"69="7469\mathcode"6A="746A
    \mathcode"6B="746B\mathcode"6C="746C\mathcode"6D="746D
    \mathcode"6E="746E\mathcode"6F="746F\mathcode"70="7470
    \mathcode"71="7471\mathcode"72="7472\mathcode"73="7473
    \mathcode"74="7474\mathcode"75="7475\mathcode"76="7476
    \mathcode"77="7477\mathcode"78="7478\mathcode"79="7479
    \mathcode"7A="747A
    % upper case Greek letters need to be re-defined
    \def\Gamma{\mathchar"0000}
    \def\Delta{\mathchar"0001}
    \def\Theta{\mathchar"0002}
    \def\Lambda{\mathchar"0003}
    \def\Xi{\mathchar"0004}
    \def\Pi{\mathchar"0005}
    \def\Sigma{\mathchar"0006}
    \def\Upsilon{\mathchar"0007}
    \def\Phi{\mathchar"0008}
    \def\Psi{\mathchar"0009}
    \def\Omega{\mathchar"000A}
}
\trueital
