%
% Copyright (C) 2008-2001 by Azzeddine LAZREK. All rights reserved.
%
% amfontla.tex
% This file belongs to the RyDArab package.
%


% Arabic mathematical version
\DeclareMathVersion{arabicmath}

% amcmsy family font declaration
\DeclareSymbolFont{amsymbols}{OMS}{amcmsy}{m}{n}

\DeclareMathSymbol{\ampropto}{\mathord}{amsymbols}{"2F}
\DeclareMathSymbol{\amprime}{\mathord}{amsymbols}{"30}
\DeclareMathSymbol{\amexists}{\mathord}{amsymbols}{"39}
\DeclareMathSymbol{\amsurdop}{\mathord}{amsymbols}{"70}


\DeclareMathSymbol{\rmgsumop}{\mathop}{largesymbols}{"45}


% amcmex family font declaration
\DeclareSymbolFont{amlargesymbols}{OMX}{amcmex}{m}{n}

\DeclareMathSymbol{\amgsumop}{\mathop}{amlargesymbols}{"45}
\DeclareMathSymbol{\amgprodopl}{\mathop}{amlargesymbols}{"33}
\DeclareMathSymbol{\amgprodopr}{\mathop}{amlargesymbols}{"32}
\DeclareMathSymbol{\amsumop}{\mathop}{amlargesymbols}{"50}
\DeclareMathSymbol{\amprodop}{\mathop}{amlargesymbols}{"51}
\DeclareMathSymbol{\amintop}{\mathop}{amlargesymbols}{"52}
\DeclareMathSymbol{\ammusintopu}{\mathop}{amlargesymbols}{"38}
\DeclareMathSymbol{\ammusintopl}{\mathop}{amlargesymbols}{"3B}

\DeclareMathRadical{\amsqrtop}{amsymbols}{"70}{amlargesymbols}{"70}


% Latin letters : \amlatinletter-latin
\def\amlatinletter{}
\am@SaveMathSymbolDecl\amlatinletter{latin}a
\am@SaveMathSymbolDecl\amlatinletter{latin}b
\am@SaveMathSymbolDecl\amlatinletter{latin}c
\am@SaveMathSymbolDecl\amlatinletter{latin}d
\am@SaveMathSymbolDecl\amlatinletter{latin}e
\am@SaveMathSymbolDecl\amlatinletter{latin}f
\am@SaveMathSymbolDecl\amlatinletter{latin}g
\am@SaveMathSymbolDecl\amlatinletter{latin}h
\am@SaveMathSymbolDecl\amlatinletter{latin}i
\am@SaveMathSymbolDecl\amlatinletter{latin}j
\am@SaveMathSymbolDecl\amlatinletter{latin}k
\am@SaveMathSymbolDecl\amlatinletter{latin}l
\am@SaveMathSymbolDecl\amlatinletter{latin}m
\am@SaveMathSymbolDecl\amlatinletter{latin}n
\am@SaveMathSymbolDecl\amlatinletter{latin}o
\am@SaveMathSymbolDecl\amlatinletter{latin}p
\am@SaveMathSymbolDecl\amlatinletter{latin}q
\am@SaveMathSymbolDecl\amlatinletter{latin}r
\am@SaveMathSymbolDecl\amlatinletter{latin}s
\am@SaveMathSymbolDecl\amlatinletter{latin}t
\am@SaveMathSymbolDecl\amlatinletter{latin}v
\am@SaveMathSymbolDecl\amlatinletter{latin}w
\am@SaveMathSymbolDecl\amlatinletter{latin}x
\am@SaveMathSymbolDecl\amlatinletter{latin}y
\am@SaveMathSymbolDecl\amlatinletter{latin}z

\am@SaveMathSymbolDecl\amlatinletter{latin}A
\am@SaveMathSymbolDecl\amlatinletter{latin}B
\am@SaveMathSymbolDecl\amlatinletter{latin}C
\am@SaveMathSymbolDecl\amlatinletter{latin}D
\am@SaveMathSymbolDecl\amlatinletter{latin}E
\am@SaveMathSymbolDecl\amlatinletter{latin}F
\am@SaveMathSymbolDecl\amlatinletter{latin}G
\am@SaveMathSymbolDecl\amlatinletter{latin}H
\am@SaveMathSymbolDecl\amlatinletter{latin}I
\am@SaveMathSymbolDecl\amlatinletter{latin}J
\am@SaveMathSymbolDecl\amlatinletter{latin}K
\am@SaveMathSymbolDecl\amlatinletter{latin}L
\am@SaveMathSymbolDecl\amlatinletter{latin}M
\am@SaveMathSymbolDecl\amlatinletter{latin}N
\am@SaveMathSymbolDecl\amlatinletter{latin}O
\am@SaveMathSymbolDecl\amlatinletter{latin}P
\am@SaveMathSymbolDecl\amlatinletter{latin}Q
\am@SaveMathSymbolDecl\amlatinletter{latin}R
\am@SaveMathSymbolDecl\amlatinletter{latin}S
\am@SaveMathSymbolDecl\amlatinletter{latin}T
\am@SaveMathSymbolDecl\amlatinletter{latin}V
\am@SaveMathSymbolDecl\amlatinletter{latin}W
\am@SaveMathSymbolDecl\amlatinletter{latin}X
\am@SaveMathSymbolDecl\amlatinletter{latin}Y
\am@SaveMathSymbolDecl\amlatinletter{latin}Z

% Latin punctuation : \amlatinpunct-latin
\def\amlatinpunct{}
\am@SaveMathSymbolDecl\amlatinpunct{latin},
\am@SaveMathSymbolDecl\amlatinpunct{latin}.
\am@SaveMathSymbolDecl\amlatinpunct{latin};
\am@SaveMathSymbolDecl\amlatinpunct{latin}:
\am@SaveMathSymbolDecl\amlatinpunct{latin}!
\am@SaveMathSymbolDecl\amlatinpunct{latin}?

% Arabic symbols : \amarabsym
\def\amarabsym{}
\am@DeclareMathDelimiter\amarabsym{}{)}%
 {\mathopen}{operators}{"28}{largesymbols}{"00}
\am@DeclareMathDelimiter\amarabsym{}{(}%
 {\mathclose}{operators}{"29}{largesymbols}{"01}
\am@DeclareMathDelimiter\amarabsym{}{]}%
 {\mathopen}{operators}{"5B}{largesymbols}{"02}
\am@DeclareMathDelimiter\amarabsym{}{[}%
 {\mathclose}{operators}{"5D}{largesymbols}{"03}
\am@DeclareMathDelimiter\amarabsym{}{>}%
 {\mathopen}{symbols}{"68}{largesymbols}{"0A}
\am@DeclareMathDelimiter\amarabsym{}{<}%
 {\mathclose}{symbols}{"69}{largesymbols}{"0B}
\am@UndeclareMathSymbol{}{>}
\am@UndeclareMathSymbol{}{<}
\am@DeclareMathSymbol\amarabsym{}{>}{\mathrel}{letters}{"3C}
\am@DeclareMathSymbol\amarabsym{}{<}{\mathrel}{letters}{"3E}

% Latin symbols : \amlatinsym-latin
\def\amlatinsym{}
\am@SaveMathDelimiterDecl\amlatinsym{latin}(
\am@SaveMathDelimiterDecl\amlatinsym{latin})
\am@SaveMathDelimiterDecl\amlatinsym{latin}]
\am@SaveMathDelimiterDecl\amlatinsym{latin}[
\am@SaveMathDelimiterDecl\amlatinsym{latin}<
\am@SaveMathDelimiterDecl\amlatinsym{latin}>
\am@SaveMathSymbolDecl\amlatinsym{latin}>
\am@SaveMathSymbolDecl\amlatinsym{latin}<

% arabic and latin curly braces
\am@addto\amarabsym{\let\{=\amlbrace \let\}=\amrbrace}
\am@addto\amlatinsym{\let\{=\lbrace \let\}=\rbrace}

% Arabic estern numerals form
\def\amearabnum{}
\am@DeclareMathSymbol\amearabnum{}{0}{\mathalpha}{amoperators}{241}%
\am@DeclareMathSymbol\amearabnum{}{1}{\mathalpha}{amoperators}{242}%
\am@DeclareMathSymbol\amearabnum{}{2}{\mathalpha}{amoperators}{243}%
\am@DeclareMathSymbol\amearabnum{}{3}{\mathalpha}{amoperators}{244}%
\am@DeclareMathSymbol\amearabnum{}{4}{\mathalpha}{amoperators}{245}%
\am@DeclareMathSymbol\amearabnum{}{5}{\mathalpha}{amoperators}{246}%
\am@DeclareMathSymbol\amearabnum{}{6}{\mathalpha}{amoperators}{247}%
\am@DeclareMathSymbol\amearabnum{}{7}{\mathalpha}{amoperators}{248}%
\am@DeclareMathSymbol\amearabnum{}{8}{\mathalpha}{amoperators}{249}%
\am@DeclareMathSymbol\amearabnum{}{9}{\mathalpha}{amoperators}{250}%

% Arabic western numerals form
\def\amwarabnum{}
\am@SaveMathSymbolDecl\amwarabnum{latin}0
\am@SaveMathSymbolDecl\amwarabnum{latin}1
\am@SaveMathSymbolDecl\amwarabnum{latin}2
\am@SaveMathSymbolDecl\amwarabnum{latin}3
\am@SaveMathSymbolDecl\amwarabnum{latin}4
\am@SaveMathSymbolDecl\amwarabnum{latin}5
\am@SaveMathSymbolDecl\amwarabnum{latin}6
\am@SaveMathSymbolDecl\amwarabnum{latin}7
\am@SaveMathSymbolDecl\amwarabnum{latin}8
\am@SaveMathSymbolDecl\amwarabnum{latin}9

% Old style numerals
\def\amoldstylenum{\oldstylenums}


%Conflict with Arabi
\DeclareMathSymbol{\amtimes}{\mathord}{amsymbols}{"02}
\let\amomega=\omega


\endinput

% Arabic mathematical script
% 0EB au lieu de EB
\def\amb{\ammathpalette{\hbox{\char"44\char"07\char"4B}}}
\def\amj{\ammathpalette{\hbox{\char"44\char"07\char"6B}}}
\def\amh{\ammathpalette{\hbox{\char"44\char"07\char"0EB}}}
\def\amt{\ammathpalette{\hbox{\char"44\char"07\char"0A3}}}
\def\amy{\ammathpalette{\hbox{\char"0FB}}}
\def\amk{\ammathpalette{\hbox{\char"44\char"07\char"0BB}}}
\def\aml{\ammathpalette{\hbox{\char"44\char"07\char"0CB}}}
\def\amm{\ammathpalette{\hbox{\char"44\char"07\char"0D3}}}
\def\amc{}%%%%%%%%%%%%\ammathpalette{\hbox{\char"44\char"07\char"083}}}
\def\ame{\ammathpalette{\hbox{\char"44\char"07\char"0AB}}}
\def\amf{\ammathpalette{\hbox{\char"44\char"07\char"0AF}}}
\def\ams{\ammathpalette{\hbox{\char"44\char"07\char"093}}}
