1 files changed, 134 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/ofs/amsfn.tex b/Master/texmf-dist/tex/generic/ofs/amsfn.tex
new file mode 100644
index 00000000000..c3690072147
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ofs/amsfn.tex
@@ -0,0 +1,134 @@
+% OFS: AMS fonts, declaration
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Apr. 2004                                  Petr Olsak
+
+%% see more info at the end of this file
+
+\protectreading amsfn.tex % This is part of OFS package
+
+\def\loadAMSnormalmath{%
+  \loadCMnormalmath
+  \chardef\msamfam  8
+  \loadmathfam \msamfam  [/msam]%          MSAM, symbols from ASMTeX
+  \chardef\msbmfam  9
+  \loadmathfam \msbmfam  [/msbm]%          MSBM, symbols from AMSTeX
+  \lastfam =9
+}
+\def\loadAMSboldmath{%
+  \loadCMboldmath
+  \chardef\msamfam  8
+  \loadmathfam \msamfam  [/msam]%          MSAM, symbols from ASMTeX
+  \chardef\msbmfam  9
+  \loadmathfam \msbmfam  [/msbm]%          MSBM, symbols from AMSTeX
+  \lastfam =9
+}
+\def\setAMSmathchars{\mathencread ofs-ams;}
+
+\def\registerAMSfonts #1 {%
+   \registertfm  #1     -      #110 %
+   \registertfm  #1  0pt-6pt   #15  %
+   \registertfm  #1  6pt-7pt   #16  %
+   \registertfm  #1  7pt-8pt   #17  %
+   \registertfm  #1  8pt-9pt   #18  %
+   \registertfm  #1  9pt-10pt  #19  %
+   \registertfm  #1  10pt-*    #110 %
+}
+\registerAMSfonts msam %
+\registerAMSfonts msbm %
+\registerAMSfonts eufm %
+\registerAMSfonts eufb %
+\registerAMSfonts eurm %
+\registerAMSfonts eurb %
+\registerAMSfonts eusm %
+\registerAMSfonts eusb %
+
+\registertfm      cmbsy  -  - % reset 
+\registerAMSfonts cmbsy       %
+\registertfm      cmex   -  - % reset
+\registerAMSfonts cmex        %
+\registertfm      cmmib  -  - % reset
+\registerAMSfonts cmmib       %
+
+\registertfm  euex     -      euex10 %
+\registertfm  euex  0pt-8pt   euex7  %
+\registertfm  euex  8pt-9pt   euex8  %
+\registertfm  euex  9pt-10pt  euex9  %
+\registertfm  euex  10pt-*    euex10 %
+
+\endinput
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+You can use all AMS symbol sequences together with CM fonts in 
+math formulae after:
+
+\input amsfn
+\def\fomenc{AMS}
+\setmath[//]
+
+You can add the Euler Fraktur to the math fonts by the following
+commands (before \setmath command):
+
+\addcmd\mathfonts {\def\tmpa{bold}%
+   \ifx\mathversion\tmpa \def\tmpa{b}\else\def\tmpa{m}\fi
+   \newmathfam\frakfam \loadmathfam\frakfam [/euf\tmpa]}
+\def\frak#1{{\fam\frakfam#1}}
+
+You can add the Euler Script to the math fonts:
+
+\addcmd\mathfonts {\def\tmpa{bold}%
+   \ifx\mathversion\tmpa \def\tmpa{b}\else\def\tmpa{m}\fi
+   \newmathfam\scriptfam \loadmathfam\scriptfam [/eus\tmpa]}
+\def\script#1{{\fam\scriptfam#1}}
+ 
+You can add the Euler Upright italic to the math fonts:
+
+\addcmd\mathfonts {\def\tmpa{bold}%
+   \ifx\mathversion\tmpa \def\tmpa{b}\else\def\tmpa{m}\fi
+   \newmathfam\upitfam \loadmathfam\upitfam [/eur\tmpa]}
+\def\upright#1{{\fam\upitfam#1}}
+
+You can replace standard CM operators \sum, \int, etc. by the
+operators from Euler extension font by the following commands:
+
+\addcmd\mathfonts{\newmathfam\euexfam \loadmathfam\euexfam [/euex]}
+\addcmd\mathchars{%
+   \mathchardef \ointop    "1\hex\euexfam 48
+   \mathchardef \sum       "1\hex\euexfam 50
+   \mathchardef \prod      "1\hex\euexfam 51
+   \mathchardef \intop     "1\hex\euexfam 52
+   \mathchardef \uprod     "1\hex\euexfam 60
+   \edef        \lbrace {\delimiter "4266\hex\euexfam 08 }%
+   \edef        \rbrace {\delimiter "5267\hex\euexfam 09 }%
+   \let\{=\lbrace 
+   \let\}=\rbrace
+   \mathchardef \letfharpoonup     "3\hex\euexfam 18
+   \mathchardef \leftharpoondown   "3\hex\euexfam 19
+   \mathchardef \rightharpoonup    "3\hex\euexfam 1A
+   \mathchardef \rightharpoondown  "3\hex\euexfam 1B
+   \mathchardef \leftarrow         "3\hex\euexfam 20
+   \mathchardef \rightarrow        "3\hex\euexfam 21
+   \mathchardef \leftrightarrow    "3\hex\euexfam 24
+   \mathchardef \nearrow           "3\hex\euexfam 25
+   \mathchardef \searrow           "3\hex\euexfam 26
+   \mathchardef \Leftarrow         "3\hex\euexfam 28
+   \mathchardef \Rightarrow        "3\hex\euexfam 29
+   \mathchardef \Leftrightarrow    "3\hex\euexfam 2C
+   \mathchardef \nwarrow           "3\hex\euexfam 2D
+   \mathchardef \swarrow           "3\hex\euexfam 2E
+   \mathchardef \infty             "0\hex\euexfam 31
+   \edef        \uparrow     {\delimiter "3\hex\euexfam 22378 }%
+   \edef        \downarrow   {\delimiter "3\hex\euexfam 23379 }%
+   \edef        \Uparrow     {\delimiter "3\hex\euexfam 2A37E }%
+   \edef        \Downarrow   {\delimiter "3\hex\euexfam 2B37F }%
+   \edef        \updownarrow {\delimiter "3\hex\euexfam 6C33F }%
+   \edef        \Updownarrow {\delimiter "3\hex\euexfam 6D377 }%
+}
+
+
+
+
+
+
+
+