diff options
author | Karl Berry <karl@freefriends.org> | 2018-03-20 22:10:59 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-03-20 22:10:59 +0000 |
commit | 65d009a0596b194597f47531523addd3e64ed005 (patch) | |
tree | e13bd9beecf63e26491a66aa7a8fa702482f0067 /Master/texmf-dist/tex/context/base/mkiv/math-pln.mkiv | |
parent | d1a186333ced7b341e26877907343f08211199f7 (diff) |
context [current] (20mar18)
git-svn-id: svn://tug.org/texlive/trunk@47050 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkiv/math-pln.mkiv')
-rw-r--r-- | Master/texmf-dist/tex/context/base/mkiv/math-pln.mkiv | 110 |
1 files changed, 110 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/math-pln.mkiv b/Master/texmf-dist/tex/context/base/mkiv/math-pln.mkiv index 754cb6141f9..d0e7e377d12 100644 --- a/Master/texmf-dist/tex/context/base/mkiv/math-pln.mkiv +++ b/Master/texmf-dist/tex/context/base/mkiv/math-pln.mkiv @@ -138,4 +138,114 @@ \normalstartimath\tabskip\zeroskip\everycr\emptytoks\hfil\displaystyle\alignmark\alignmark\hfil\normalstopimath}\crcr #1\crcr}} +%D This comes from plain but I gave it a \CONTEXT\ touch: + +\def\math_border_NC_indeed + {\gdef\math_border_NC{\aligntab}} + +\let\math_border_NC\math_border_NC_indeed + +\def\math_border_NR + {\glet\math_border_NC\math_border_NC_indeed + \cr} + +\unexpanded\def\math_border_matrix#1#2#3% adapted plain + {\begingroup + % + \pushmacro\cr + % + \setbox\scratchbox\hbox\bgroup + \mr B% + \egroup + \scratchdimenone\wd\scratchbox + % + \scratchdimentwo.2\bodyfontsize + % + \mathsurround\zeropoint + % + \def\NC{\math_border_NC}% + \def\NR{\math_border_NR}% + % + \setbox\scratchboxone\vbox\bgroup + \def\cr{% + \crcr + \noalign\bgroup + \kern\scratchdimentwo + \global\let\cr\endline + \egroup + }% + \ialign{% + \startimath\alignmark\alignmark\stopimath + \hfil + \kern\dimexpr\scratchdimentwo+\scratchdimenone\relax + \aligntab + \thinspace + \hfil + \startimath\alignmark\alignmark\stopimath + \hfil + \aligntab + \aligntab + \quad + \hfil + \startimath\alignmark\alignmark\stopimath + \hfil + \crcr + \omit + \strut + \hfil + \crcr + \noalign{\kern-\baselineskip}% + #3\crcr + \omit + \strut + \cr + }% + \egroup + \setbox\scratchboxtwo\vbox\bgroup + \unvcopy\scratchboxone + \global\setbox\globalscratchbox\lastbox + \egroup + \setbox\scratchboxtwo\hbox\bgroup + \unhbox\globalscratchbox + \unskip + \global\setbox\globalscratchbox\lastbox + \egroup + \setbox\scratchboxtwo\hbox\bgroup + \startimath + \kern\dimexpr\wd\globalscratchbox-\scratchdimenone\relax + \left#1\relax + \kern-\wd\globalscratchbox + \global\setbox\globalscratchbox\vbox\bgroup + \box\globalscratchbox + \kern\scratchdimentwo + \egroup + \vcenter\bgroup + \kern-\ht\globalscratchbox + \unvbox\scratchboxone + \kern-\baselineskip + \egroup + \thinspace + \right#2\relax + \stopimath + \egroup + \null + \thickspace + \vbox\bgroup + \kern\ht\globalscratchbox + \box\scratchboxtwo + \egroup + % + \popmacro\cr + % + \endgroup} + +\unexpanded\def\bordermatrix {\math_border_matrix()} +\unexpanded\def\bbordermatrix{\math_border_matrix[]} + +\unexpanded\def\startbordermatrix #1\stopbordermatrix {\math_border_matrix(){#1}} +\unexpanded\def\startbbordermatrix#1\stopbbordermatrix{\math_border_matrix[]{#1}} + +\let\stopbordermatrix \relax +\let\stopbbordermatrix\relax + \protect \endinput |