% Filename: pstimesm.sty
% Author: Alan Jeffrey
% Email: alanje@cogs.sussex.ac.uk
% Last modified: 26 May 1992

% This is a LaTeX style file for Times with the MathTime fonts.

% 21 May 1992: Created file.
%
% 26 May 1992: Added Zapf Chancery calligraphic letters.
% (Unfortunately, this means that \cal I and O will not be very
% obvious, but life is hard.)

% To begin with, we load the MathTime macros.  Unfortunately, these
% PLAY SILLY BUGGERS with the catcode of @, which we have to patch.
% Why oh why oh why...

\newcount\atcatcode

\atcatcode=\catcode`\@

\input mtmacs

\catcode`\@=\atcatcode

% Then we can get on with loading some fonts.  First off, we load the
% Times font.

\input pstimes.sty

% Then we load the MathTime fonts themselves.

\new@ps@fontshape{MTMI}{m}{it}{MTMI}
\new@ps@fontshape{MTSY}{m}{n}{MTSY}
\new@ps@fontshape{MTEX}{m}{n}{MTEX}

\new@mathversion\mv@mathtime

\define@mathgroup\mv@mathtime{0}{times}{m}{n}
\define@mathgroup\mv@mathtime{1}{MTMI}{m}{it}
\define@mathgroup\mv@mathtime{2}{MTSY}{m}{n}
\define@mathgroup\mv@mathtime{3}{MTEX}{m}{n}

\addtoversion{mathtime}{\mathsf}{\sfdefault}{m}{n}
\addtoversion{mathtime}{\mathbf}{\rmdefault}{bx}{n}
\addtoversion{mathtime}{\mathsc}{\scdefault}{m}{n}
\addtoversion{mathtime}{\mathit}{\rmdefault}{m}{it}
\addtoversion{mathtime}{\mathsl}{\rmdefault}{m}{sl}
\addtoversion{mathtime}{\mathtt}{\ttdefault}{m}{n}

% There are no bold math fonts for MathTime.

\def\boldmath{\@warning{\string\boldmath\space is not available
   with MathTime}\gdef\boldmath{}}

% The command \cal now generated Zapf Chancery, scaled up by 15.28%,
% to make the cap height the same as that of Times Roman.

\let\cal\undefined
\newmathalphabet\cal

\new@fontshape{chancery}{m}{it}{%
      <5>pzcmi at5.76pt%
      <6>pzcmi at6.92pt%
      <7>pzcmi at8.07pt%
      <8>pzcmi at9.22pt%
      <9>pzcmi at10.38pt%
      <10>pzcmi at11.52pt%
      <11>pzcmi at12.62pt%
      <12>pzcmi at13.83pt%
      <14>pzcmi at16.6pt%
      <17>pzcmi at19.92pt%
      <20>pzcmi at23.90pt%
      <25>pzcmi at28.68pt}{}

\addtoversion{mathtime}{\cal}{chancery}{m}{it}

% The default math version is MathTime.

\mathversion{mathtime}