beta 2013.07.19 18:57

1 files changed, 24 insertions, 5 deletions

diff --git a/tex/context/base/math-def.mkiv b/tex/context/base/math-def.mkiv
index 8a8020c6e..1c7e9816c 100644
--- a/tex/context/base/math-def.mkiv
+++ b/tex/context/base/math-def.mkiv
@@ -88,11 +88,23 @@
 
 \let\normalmatharg\arg % todo: maybe automatically
 
-% using attributes
+% methods:
+%
+% 1: none
+% 2: lua
+% 3: tex
+
+% variants:
+%
+% 1: step 1
+% 2: step 2
+% 3: htdp * 1.33^n
+% 4: size * 1.33^n
 
-\setnewconstant\bigmathdelimitermethod\plusone
+\setnewconstant\bigmathdelimitermethod \plusone
+\setnewconstant\bigmathdelimitervariant\plusthree
 
-\def\plainbigdelimiters % traditional method
+\unexpanded\def\plainbigdelimiters % traditional method
   {\bigmathdelimitermethod\plustwo}
 
 \plainbigdelimiters % is default for the moment but not so nice
@@ -108,13 +120,13 @@
 
 \installcorenamespace{mathbig}
 
-\unexpanded\def\choosemathbig#1#2% so we accent \big{||} as well
+\unexpanded\def\choosemathbig#1#2% so we accept \big{||} as well
   {{\hbox{$%
       \ifcase\bigmathdelimitermethod
         \doleftbigmath#2\relax
         \dorightbigmath#2\relax
       \or
-        \attribute\mathsizeattribute#1\relax
+        \attribute\mathsizeattribute\numexpr\bigmathdelimitervariant*\plushundred+#1\relax
         \doleftbigmath#2\relax
         \dorightbigmath#2\relax
       \else
@@ -126,6 +138,13 @@
       \mathsurround\zeropoint
   $}}}
 
+\unexpanded\def\mathdelimiterstep#1#2%
+  {\begingroup
+   \attribute\mathsizeattribute\numexpr\plushundred+#1\relax
+   \doleftbigmath#2\relax
+   \dorightbigmath#2\relax
+   \endgroup}
+
 \definemathcommand [big]  {\choosemathbig\plusone  } \setvalue{\??mathbig1}{0.85}
 \definemathcommand [Big]  {\choosemathbig\plustwo  } \setvalue{\??mathbig2}{1.15}
 \definemathcommand [bigg] {\choosemathbig\plusthree} \setvalue{\??mathbig3}{1.45}