% OFS: MathTime fonts, math encoding declaration
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Apr. 2004                                  Petr Olsak

\protectreading ofs-mt.tex % This is part of OFS package

\mathencdef\MTmathchars {%
  \fontmessage{\ofsmessageheader Math codes are set for MT encoding}%
  \mathcode`\,="602C
  \mathcode`\.="002E
  \mathchardef\ldotp="602E
  \mathcode`\/="002F
  \mathcode`\<="3\hex\mtifam 3C
  \mathcode`\>="3\hex\mtifam 3E
  \mathcode`+="2243
  \mathcode`=="3244
  %
  \def\tmpa{8z}\ifx\fotenc\tmpa
     \mathaccentdef \acute "7013
     \mathaccentdef \bar   "7016
     \mathaccentdef \breve "7015
     \mathaccentdef \check "7014
     \mathaccentdef \ddot  "707F
     \mathaccentdef \dot   "705F
     \mathaccentdef \grave "7012
     \mathaccentdef \hat   "705E
     \mathaccentdef \tilde "707E
  \else
     \mathaccentdef \acute "7001
     \mathaccentdef \bar   "7009
     \mathaccentdef \breve "7008
     \mathaccentdef \check "7007
     \mathaccentdef \ddot  "7004
     \mathaccentdef \dot   "700A
     \mathaccentdef \grave "7000
     \mathaccentdef \hat   "7002
     \mathaccentdef \tilde "7003
  \fi
  \mathaccentdef \vec "0245
  %
  \mathchardef\alpha    "0\hex\mtifam 0B
  \mathchardef\beta     "0\hex\mtifam 0C
  \mathchardef\gamma    "0\hex\mtifam 0D
  \mathchardef\delta    "0\hex\mtifam 0E
  \mathchardef\epsilon  "0\hex\mtifam 0F
  \mathchardef\zeta     "0\hex\mtifam 10
  \mathchardef\eta      "0\hex\mtifam 11
  \mathchardef\theta    "0\hex\mtifam 12
  \mathchardef\iota     "0\hex\mtifam 13
  \mathchardef\kappa    "0\hex\mtifam 14
  \mathchardef\lambda   "0\hex\mtifam 15
  \mathchardef\mu       "0\hex\mtifam 16
  \mathchardef\nu       "0\hex\mtifam 17
  \mathchardef\xi       "0\hex\mtifam 18
  \mathchardef\pi       "0\hex\mtifam 19
  \mathchardef\rho      "0\hex\mtifam 1A
  \mathchardef\sigma    "0\hex\mtifam 1B
  \mathchardef\tau      "0\hex\mtifam 1C
  \mathchardef\upsilon  "0\hex\mtifam 1D
  \mathchardef\phi      "0\hex\mtifam 1E
  \mathchardef\chi      "0\hex\mtifam 1F
  \mathchardef\psi      "0\hex\mtifam 20
  \mathchardef\omega    "0\hex\mtifam 21
  \mathchardef\varepsilon "0\hex\mtifam 22
  \mathchardef\vartheta "0\hex\mtifam 23
  \mathchardef\varpi    "0\hex\mtifam 24
  \mathchardef\varrho   "0\hex\mtifam 25
  \mathchardef\varsigma "0\hex\mtifam 26
  \mathchardef\varphi   "0\hex\mtifam 27
  %
  \mathchardef\Gamma    "0\hex\gufam 47
  \mathchardef\Delta    "0\hex\gufam 44
  \mathchardef\Theta    "0\hex\gufam 27
  \mathchardef\Lambda   "0\hex\gufam 4C
  \mathchardef\Xi       "0\hex\gufam 58
  \mathchardef\Pi       "0\hex\gufam 50
  \mathchardef\Sigma    "0\hex\gufam 53
  \mathchardef\Upsilon  "0\hex\gufam 57
  \mathchardef\Phi      "0\hex\gufam 28
  \mathchardef\Psi      "0\hex\gufam 29
  \mathchardef\Omega    "0\hex\gufam 32
  %
  \mathchardef\imath    "0\hex\mtifam 7B
  \mathchardef\jmath    "0\hex\mtifam 7C
  %
  \mathchardef\partial           "0\hex\mtifam 40
  \mathchardef\star              "2\hex\mtifam 3F
  \mathchardef\ell               "0\hex\mtifam 60
  \mathchardef\wp                "0\hex\mtifam 7D
  \mathchardef\flat              "0\hex\mtifam 5B
  \mathchardef\frown             "3\hex\mtifam 5F
  \mathchardef\smile             "3\hex\mtifam 5E
  \mathchardef\lhook             "3\hex\mtifam 2C
  \mathchardef\rhook             "3\hex\mtifam 2D
  \mathchardef\natural           "0\hex\mtifam 5C
  \mathchardef\sharp             "0\hex\mtifam 5D
  \mathchardef\leftharpoonup     "3\hex\mtifam 28
  \mathchardef\leftharpoondown   "3\hex\mtifam 29
  \mathchardef\rightharpoonup    "3\hex\mtifam 2A
  \mathchardef\rightharpoondown  "3\hex\mtifam 2B
  %
  \mathchardef\triangleleft      "2247 
  \mathchardef\triangleright     "2246
  \def\tmpa{8z}\ifx\fotenc\tmpa
    \mathchardef\ddagger     "2082
    \mathchardef\dagger      "2081
  \fi
  \def\lgroup{\delimiter"4\hex\bffam 2833A }% extensible ( with sharper tips
  \def\rgroup{\delimiter"5\hex\bffam 2933B }% extensible ) with sharper tips
  \def\bracevert{\delimiter"\hex\ttfam 7C33E }% the vertical bar that extends braces
  %
  \def\mathcharsback{\mathencread ofs-cm;}%
}