summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/mafr/mafr.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/mafr/mafr.sty')
-rw-r--r--macros/latex/contrib/mafr/mafr.sty109
1 files changed, 109 insertions, 0 deletions
diff --git a/macros/latex/contrib/mafr/mafr.sty b/macros/latex/contrib/mafr/mafr.sty
new file mode 100644
index 0000000000..f89d5a1e4f
--- /dev/null
+++ b/macros/latex/contrib/mafr/mafr.sty
@@ -0,0 +1,109 @@
+% Package `mafr' (mathématiques françaises).
+% Adaptation aux règles de typographie mathématique française.
+% Copyright (c) Christian Obrecht 2005.
+
+\ProvidesPackage{mafr}[2005/10/31 v1.0 Mathématiques françaises]
+
+% Format élargi, fontes accentuées et module `babel'.
+
+\RequirePackage{a4wide}
+\RequirePackage[T1]{fontenc}
+\RequirePackage[francais]{babel}
+
+% Les majuscules en romain droit.
+
+\DeclareSymbolFont{Roman}{U}{cmr}{m}{n}
+\SetSymbolFont{Roman}{bold}{U}{cmr}{b}{n}
+\DeclareMathSymbol{A}\mathalpha{Roman}{`A}
+\DeclareMathSymbol{B}\mathalpha{Roman}{`B}
+\DeclareMathSymbol{C}\mathalpha{Roman}{`C}
+\DeclareMathSymbol{D}\mathalpha{Roman}{`D}
+\DeclareMathSymbol{E}\mathalpha{Roman}{`E}
+\DeclareMathSymbol{F}\mathalpha{Roman}{`F}
+\DeclareMathSymbol{G}\mathalpha{Roman}{`G}
+\DeclareMathSymbol{H}\mathalpha{Roman}{`H}
+\DeclareMathSymbol{I}\mathalpha{Roman}{`I}
+\DeclareMathSymbol{J}\mathalpha{Roman}{`J}
+\DeclareMathSymbol{K}\mathalpha{Roman}{`K}
+\DeclareMathSymbol{L}\mathalpha{Roman}{`L}
+\DeclareMathSymbol{M}\mathalpha{Roman}{`M}
+\DeclareMathSymbol{N}\mathalpha{Roman}{`N}
+\DeclareMathSymbol{O}\mathalpha{Roman}{`O}
+\DeclareMathSymbol{P}\mathalpha{Roman}{`P}
+\DeclareMathSymbol{Q}\mathalpha{Roman}{`Q}
+\DeclareMathSymbol{R}\mathalpha{Roman}{`R}
+\DeclareMathSymbol{S}\mathalpha{Roman}{`S}
+\DeclareMathSymbol{T}\mathalpha{Roman}{`T}
+\DeclareMathSymbol{U}\mathalpha{Roman}{`U}
+\DeclareMathSymbol{V}\mathalpha{Roman}{`V}
+\DeclareMathSymbol{W}\mathalpha{Roman}{`W}
+\DeclareMathSymbol{X}\mathalpha{Roman}{`X}
+\DeclareMathSymbol{Y}\mathalpha{Roman}{`Y}
+\DeclareMathSymbol{Z}\mathalpha{Roman}{`Z}
+
+% Majuscules d'anglaise.
+
+\DeclareSymbolFont{rsfscript}{U}{rsfs}{m}{n}
+\DeclareSymbolFontAlphabet{\mathrsfs}{rsfscript}
+\newcommand\scr{\mathrsfs}
+
+% Pour des symboles « inférieur ou égal », « supérieur ou égal », « ensemble
+% vide » et « parallèles » conformes aux usages français.
+
+\DeclareSymbolFont{AmsA}{U}{msa}{m}{n}
+\SetSymbolFont{AmsA}{bold}{U}{msa}{b}{n}
+\DeclareMathSymbol\leq\mathrel{AmsA}{"36}
+\DeclareMathSymbol\geq\mathrel{AmsA}{"3E}
+\DeclareSymbolFont{AmsB}{U}{msb}{m}{n}
+\SetSymbolFont{AmsB}{bold}{U}{msb}{b}{n}
+\DeclareMathSymbol\emptyset\mathord{AmsB}{"3F}
+\def\parallel{\mathrel{/\!/}}
+
+% Une macro pour les vecteurs qui donne de meilleurs résultats que
+% \overrightarrow.
+
+\def\vect#1{%
+\vbox{\lineskip=-.04em\baselineskip=0pt
+\halign{##\cr
+\leaders\hbox{$\scriptstyle{-}$\kern-.4em}\hfil$\scriptstyle{\rightarrow}$\cr
+$#1$\cr}}}
+
+% Même chose pour les angles et \widehat.
+
+\def\angl#1{%
+\setbox100\hbox{$#1$}
+\ifdim\wd100>1.8em\mathaccent"075B{#1}\else\mathaccent"0362{#1}\fi}
+
+% Une macro pour obtenir de grandes fractions dans les formules en ligne.
+
+\def\frc#1#2{\displaystyle{#1\over#2}}
+
+% Des macros pour les notations usuelles.
+
+\def\M@#1{\ifmmode #1\else $#1$\fi}
+
+\def\A{\M@{\cal A}}
+\def\B{\M@{\scr B}}
+\def\C{\M@{\scr C}}
+\def\D{\M@{\scr D}}
+\def\E{\M@{\scr E}}
+\def\F{\M@{\scr F}}
+\def\I{\M@{\cal I}}
+\def\J{\M@{\cal J}}
+\def\K{\M@{\bf C}}
+\def\N{\M@{\bf N}}
+\def\P{\M@{\scr P}}
+\def\Q{\M@{\bf Q}}
+\def\R{\M@{\bf R}}
+\def\S{\M@{\cal S}}
+\def\Z{\M@{\bf Z}}
+
+% Caractère € (Euro) et guillemets français.
+
+\font\teneuro=feymr10
+\catcode`\€=\active \def €{{\teneuro {\char "65}}}
+
+\catcode`\«=\active \def «{<<\,}
+\catcode`\»=\active \def »{\,>>}
+
+\endinput