% This file declares the MathTimes fonts using OFS macros
% See ofsdoc.tex (OFS -- Olsak's Font System) for more details
% Remember that the MathTimes fonts is non free package.

\protectreading mtfn.tex % This is part of OFS package

\def\Timestext{Times}
\def\iftimes{\ifx\currentfamily\Timestext}

\def\loadMTnormalmath{%
  \loadmathfam 0[-rm/]%                Actual Roman font
  \iftimes
    \fontmessage { \space\space MathTimes used for MathItalics}%
    \defaultskewchar=45
    \loadmathfam 1[/mtmi]%             MathTimes italic font for variables
  \else
    \fontmessage { \space\space \currentfamily-it used for MathItalics}%
    \loadmathfam 1[-it/]%              Actual Italic font for variables
  \fi
  \defaultskewchar=48
  \loadmathfam 2[/mtsyn]%              Symbols from MathTimes
  \defaultskewchar=-1
  \noindexsize\loadmathfam 3[/mtex]%   Extra symbols from MathTimes
  \chardef\mtifam 4
  \defaultskewchar=45
  \loadmathfam \mtifam [/mtmi]%        MathTimes italic (for greek)
  \defaultskewchar=-1
  \chardef \itfam  5
  \loadmathfam \itfam [-it/]%          Actual Italic  
  \chardef \bffam  6
  \loadmathfam \bffam [-bf/]%          Actual Bold font
  \chardef \bifam  7
  \loadmathfam \bifam [-bi/]%          Actual Bold Italic font
  \chardef \gufam  8
  \loadmathfam \gufam [/mtgu]%         MathTimes greek unslanted
  \chardef \scrfam 9
  \loadmathfam \scrfam [/mtms]%        MathTimes script
  \lastfam =9
  \let\ttfam=\undefined
}
\def\loadMTboldmath{%
  \loadmathfam 0[-bf/]%                Actual Bold font
  \iftimes
     \fontmessage { \space\space MathTimes used for bold MathItalics}%
     \defaultskewchar=45
     \loadmathfam 1[/mtmib]%           MathTimes Bold-Italic font
  \else
     \fontmessage { \space\space \currentfamily-bi used for bold MathItalics}%
     \loadmathfam 1[-bi/]%             Actual Bold-Italic font     
  \fi
  \defaultskewchar=48
  \loadmathfam 2[/mtsyb]%              Bold symbols from MathTimes
  \defaultskewchar=-1
  \noindexsize\loadmathfam 3[/mtexb]%  Extra bold symbols from MathTimes
  \chardef\bffam=0
  \chardef \mtifam 4
  \defaultskewchar=45     
  \loadmathfam \mtifam [/mtmib]%       MathTimes bold italic (for greek)
  \defaultskewchar=-1
  \chardef\itfam 5  \chardef\bifam 5
  \loadmathfam \bifam [-bi/]%          Actual Bold Italic font
  \chardef \itfam  6
  \loadmathfam \bffam [-bf/]%          Actual Bold font
  \chardef \gufam  8
  \loadmathfam \gufam [/mtgub]%        MathTimes greek bold unslanted
  \chardef \scrfam 9
  \loadmathfam \scrfam [/mtmsb]%       MathTimes script bold
  \lastfam =9
  \let\ttfam=\undefined  
}
\def\setMTmathchars{\mathencread ofs-mt;}

\def\cal{\fam\scrfam}