summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/zztex/zzmathv6.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/zztex/zzmathv6.tex')
-rw-r--r--Master/texmf-dist/tex/plain/zztex/zzmathv6.tex180
1 files changed, 180 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/zztex/zzmathv6.tex b/Master/texmf-dist/tex/plain/zztex/zzmathv6.tex
new file mode 100644
index 00000000000..c47f22ae2dd
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/zztex/zzmathv6.tex
@@ -0,0 +1,180 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Module: ZzTeX New Mathematics Facilities
+%
+% Synopsis: This file provides the mathematics facilities for "new math"
+% version 5.
+%
+% Author: Paul C. Anagnostopoulos
+% Created: 24 September 2003
+%
+% Copyright 1989--2020 by Paul C. Anagnostopoulos
+% under The MIT License (opensource.org/licenses/MIT)
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% Document Parameters
+% -------- ----------
+
+
+\delimitershortfall = 2pt
+
+% Math Spaces
+% ---- ------
+
+
+\setmathspaces{4mu plus .25mu minus .5mu}
+ {4mu plus .25mu minus .5mu}
+ {4mu plus .25mu minus .5mu}%
+
+% Math Font Selections
+% ---- ---- ----------
+
+
+\outer\def \ComputerModernmathfonts {%
+ \input zzcmmath\relax
+ \setmathpunctuationstyle{\mit}{\rm}}
+
+\outer\def \Lucidamathfonts #1{% {arrows?}
+ \setflag \zusemar = #1\relax
+ \input zzlucida\relax
+ \setmathpunctuationstyle{\mit}{\rm}}
+
+\outer\def \MathTimefonts #1{% {text face is Times?}
+ \input zzmtime\relax
+ \setmathucgreekstyles{\mit}{\boldgreekunavailable}%
+ \if #1%
+ \setmathpunctuationstyle{\mit}{\rm}%
+ \else
+ \setmathpunctuationstyle{\rm}{\rm}%
+ \fi}
+
+\outer\def \Stonemathfonts {%
+ \setmathpunctuationstyle{\rm}{\rm}}
+
+% Greek Letter Style
+% ----- ------ -----
+
+
+\def \zmucgreekstyler {}
+\def \zmucgreekstyleb {}
+
+
+% Note the "s" at the end of the name, versus \setmathucgreekstyle.
+
+\def \setmathucgreekstyles #1#2{% {regular-style}{bold-style}
+ \gdef \zmucgreekstyler {#1}%
+ \gdef \zmucgreekstyleb {#2}%
+\definemathchar \Alpha \classvarfam \rmfam {41}%
+\definemathchar \Beta \classvarfam \rmfam {42}%
+\zdefucgreekchar \Gamma {30}%
+\zdefucgreekchar \Delta {31}%
+\definemathchar \Epsilon \classvarfam \rmfam {45}%
+\definemathchar \Zeta \classvarfam \rmfam {5A}%
+\definemathchar \Eta \classvarfam \rmfam {48}%
+\zdefucgreekchar \Theta {32}%
+\definemathchar \Iota \classvarfam \rmfam {49}%
+\definemathchar \Kappa \classvarfam \rmfam {4B}%
+\zdefucgreekchar \Lambda {33}%
+\definemathchar \Mu \classvarfam \rmfam {4D}%
+\definemathchar \Nu \classvarfam \rmfam {4E}%
+\zdefucgreekchar \Xi {34}%
+\definemathchar \Omicron \classvarfam \rmfam {4F}%
+\zdefucgreekchar \Pi {35}%
+\definemathchar \Rho \classvarfam \rmfam {50}%
+\zdefucgreekchar \Sigma {36}%
+\definemathchar \Tau \classvarfam \rmfam {54}%
+\zdefucgreekchar \Upsilon {37}%
+\zdefucgreekchar \Phi {38}%
+\definemathchar \Chi \classvarfam \rmfam {58}%
+\zdefucgreekchar \Psi {39}%
+\zdefucgreekchar \Omega {7F}}
+
+\def \zdefucgreekchar #1#2{% {\name}{code}
+ \gdef #1{%
+ \if \eqlp{\fam}{-1}%
+ {\zmucgreekstyler \mathchar "70#2}%
+ \else\if \eqlp{\fam}{\bffam}%
+ {\zmucgreekstyleb \mathchar "70#2}%
+ \else
+ \error{invgrkstyle}{The current math family precludes using bold Greek}%
+ \fi\fi}}
+
+% Punctuation Style
+% ----------- -----
+
+
+% Here we deal with the style for comma, period, semicolon, and colon.
+% The default punctuation style for all four is \rm.
+
+
+% This macro defines the math characters \zmperiod, \zmcomma,
+% colon, and semicolon to use the specified style.
+% If the style is \mit, then it's different.
+
+\def \setmathpunctuationstyle #1#2{% {\style1}{\style2}
+ {\zmstyfam = \name{#1fam}%
+ \if \eqlp{\zmstyfam}{\mitfam}%
+ \definemathchar {`.} \classord \mitfam {3A}%
+ \definemathchar {`,} \classpunc \mitfam {3B}%
+ \else
+ \definemathchar {`.} \classactive \rmfam {00}%
+ \definemathchar {`,} \classactive \rmfam {00}%
+ \definemathchar {\zmperiod} \classord \zmstyfam {2E}%
+ \definemathchar {\zmcomma} \classpunc \zmstyfam {2C}%
+ \fi
+ \zmstyfam = \name{#2fam}%
+ \definemathchar {`;} \classpunc \zmstyfam {3B}%
+ \definemathchar {`:} \classrel \zmstyfam {3A}}}
+
+% When period and comma are active in math, this is what they do.
+
+{
+\catcode `\. = \catactive
+\gdef .{\mathpalette\zmactperiod{}}
+
+\catcode `\, = \catactive
+\gdef ,{\mathpalette\zmactcomma{}}
+}
+
+\def \zmactperiod #1#2{%
+ \mathord{\hbox to .275em{\hfil $#1\zmperiod$\hfil}}}
+
+\def \zmactcomma #1#2{%
+ \mathpunct{\hbox to .331em{\kern .045em $#1\zmcomma$\hfil}}}
+
+% Dot-Related Commands
+% ----------- --------
+
+
+\def \cdot {\mathbin{\vcenter{\hbox{$.$}}}}
+
+\def \cdotp {\mathpunct{\vcenter{\hbox{$.$}}}}
+
+\def \ldotp {\mathpunct{.}}
+
+\def \cdots {\mathinner{\cdotp\cdotp\cdotp}}
+
+\def \ddots {%
+ \vbox{\baselineskip = 4pt \lineskiplimit = 0pt
+ \hbox{.}%
+ \hbox{\kern .4em .}%
+ \hbox{\kern .8em .}%
+ \vskip -.25ex}}
+
+\def \ldots {\mathinner{\ldotp\ldotp\ldotp}}
+
+\def \vdots {%
+ \vbox{\baselineskip = 4pt \lineskiplimit = 0pt
+ \hbox{.}%
+ \hbox{.}%
+ \hbox{.}%
+ \vskip -.25ex}}
+
+% Colon Commands
+% ----- --------
+
+
+\def \maps {\mathpunct{:}}
+
+\let \colon = \maps