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


% La famille de fonte amcmsy est la famille cmsy
%    dont les glyphes sont inversées
% C'est la famille numéro 8

\font\amtencmsy=amcmsy10 at 10pt
\font\amsevencmsy=amcmsy10 at 7pt
\font\amfivecmsy=amcmsy10 at 5pt
\newfam\amcmsy
\textfont\amcmsy=\amtencmsy
\scriptfont\amcmsy=\amsevencmsy
\scriptscriptfont\amcmsy=\amfivecmsy

% La famille de fonte amcmex est la famille cmex
%    dont les glyphes sont inversées
% C'est la famille numéro 9

\font\amtencmex=amcmex10 at 10pt
\font\amsevencmex=amcmex10 at 7pt
\font\amfivecmex=amcmex10 at 5pt
\newfam\amcmex
\textfont\amcmex=\amtencmex
\scriptfont\amcmex=\amsevencmex
\scriptscriptfont\amcmex=\amfivecmex

% La famille de fonte amxnsh est la famille xnsh
%    pour les mathématiques
% C'est la famille numéro 10

\font\amthirtenxnsh=xnsh14 at 13pt
\font\amelevenxnsh=xnsh14 at 11pt
\font\amninexnsh=xnsh14 at 9pt
\font\amsevenxnsh=xnsh14 at 7pt
\newfam\amxnsh
\textfont\amxnsh=\amelevenxnsh
\scriptfont\amxnsh=\amninexnsh
\scriptscriptfont\amxnsh=\amsevenxnsh
%\def\amxnsh{\fam\amxnsh\amthirtenxnsh}

% Symbols codes definition for plain TeX

% Définition des differentes tailles du vocabulaire mathematique
\def\ammathpalette#1{{\mathchoice{\amthirtenxnsh{#1}}
    {\amelevenxnsh{#1}}{\amninexnsh{#1}}{\amsevenxnsh{#1}}}}

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

% Arabic estern numerals form
\def\amearabnum{
\mathcode`0="A30
\mathcode`1="A31
\mathcode`2="A32
\mathcode`3="A33
\mathcode`4="A34
\mathcode`5="A35
\mathcode`6="A36
\mathcode`7="A37
\mathcode`8="A38
\mathcode`9="A39
}

% Arabic western numerals form
\def\amwarabnum{
\mathcode`0="030
\mathcode`1="031
\mathcode`2="032
\mathcode`3="033
\mathcode`4="034
\mathcode`5="035
\mathcode`6="036
\mathcode`7="037
\mathcode`8="038
\mathcode`9="039
}


% Arabic letters
\def\amarabletter{
\mathcode`a="A40 \mathcode`b="A48 \mathcode`s="A90
\mathcode`d="A58 \mathcode`A="A5A \mathcode`j="A68
\mathcode`e="AA8 \mathcode`f="AAC \mathcode`T="AA0
\mathcode`c="A80 \mathcode`m="AD0 \mathcode`n="AE0
\mathcode`k="AB8 \mathcode`l="AC8 \mathcode`y="AF8
\mathcode`w="AF0 \mathcode`Y="AFE \mathcode`z="A50
\mathcode`X="A42 \mathcode`q="A86 \mathcode`N="ADE
\mathcode`J="A6B \mathcode`B="A4B \mathcode`H="AEB
\mathcode`L="ACD \mathcode`M="AD3 \mathcode`S="A93
\mathcode`C="A83 \mathcode`F="AAF \mathcode`E="AAB }

% Arabic punctuation
\def\amarabpunct{
\mathcode`,="2A2C
\mathcode`.="2A2E
\mathcode`;="2A3B
\mathcode`:="2A3A
\mathcode`!="2A21
\mathcode`?="2A3F
}

% Arabic symbols
\def\amarabsym{
\mathcode`)="028
\mathcode`(="029
\mathcode`]="05B
\mathcode`[="05D
\mathcode`>="13C
\mathcode`<="13E
\let\{=\amlbrace
\let\}=\amrbrace
\delcode`\)="028300
\delcode`\(="029301
\delcode`\]="05B302
\delcode`\[="05D303
\delcode`\>="26830A
\delcode`\<="26930B
}

\def\bamarabsym{
\mathcode`)="4300
\mathcode`(="5301
\mathcode`]="4302
\mathcode`[="5303
\mathcode`>="13C
\mathcode`<="13E
\let\{=\amlbrace
\let\}=\amrbrace
}


\def\camarabsym{
{\catcode`\(=\active \gdef({\string )}}
{\catcode`\)=\active \gdef({\string (}}
}

% Latin letters
%italic meme pour les variables
%romain (sauf pour j qu'on a pas utilise pour l'arabe)
%meme pour les fonctions comme \lim
\def\amlatinletter{ %\mit % pas d'effet pour \mit
\mathcode`a="161 \mathcode`b="162 \mathcode`c="163
\mathcode`d="164 \mathcode`e="165 \mathcode`f="166
\mathcode`j="16A \mathcode`k="16B \mathcode`l="16C
\mathcode`m="16D \mathcode`n="16E \mathcode`q="171
\mathcode`z="172 \mathcode`s="173 \mathcode`w="177
\mathcode`y="179 \mathcode`J="14A \mathcode`B="142
\mathcode`H="148 \mathcode`L="14C \mathcode`M="14D
\mathcode`N="14E \mathcode`S="153 \mathcode`F="146
\mathcode`C="143 \mathcode`X="158 \mathcode`Y="159
\mathcode`T="154 \mathcode`E="145 \mathcode`A="141 }

% Latin punctuation
\def\amlatinpunct{
 \mathcode`,="202C
 \mathcode`.="202E
 \mathcode`;="203B
 \mathcode`:="203A
 \mathcode`!="2021
 \mathcode`?="203F
}

% Latin symbols
\def\amlatinsym{
\let\{=\lbrace
\let\}=\rbrace
}

\mathchardef\ampropto="82F
\mathchardef\amprime="830
\mathchardef\amexists="839
\mathchardef\amsurdop="870

\mathchardef\amintop="1952
\mathchardef\ammusintopu="1938
\mathchardef\ammusintopl="193B
\mathchardef\amsumop="1950
\mathchardef\amprodop="1951
\mathchardef\amgsumop="1945
\mathchardef\amgprodopl="1919
\mathchardef\amgprodopr="1918
\def\amsqrtop{\radical"870970
}

\mathchardef\amb="A4B \mathchardef\amj="A6B \mathchardef\amh="AEB
\mathchardef\amt="AA3 \mathchardef\amy="AFB \mathchardef\amk="ABB
\mathchardef\aml="ACB \mathchardef\amm="AD3 \mathchardef\amc="A83
\mathchardef\ame="AAB \mathchardef\amf="AAF \mathchardef\ams="A93


\endinput
