From 52c91dd191d7bd30d41aaf259480ee862160a251 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Wed, 5 May 2021 20:33:15 +0200
Subject: 2021-05-05 19:24:00

---
 tex/context/base/mkxl/anch-bar.mkxl | 27 ++++++++++-----------------
 1 file changed, 10 insertions(+), 17 deletions(-)

(limited to 'tex/context/base/mkxl/anch-bar.mkxl')

diff --git a/tex/context/base/mkxl/anch-bar.mkxl b/tex/context/base/mkxl/anch-bar.mkxl
index 252f41239..71cc7f163 100644
--- a/tex/context/base/mkxl/anch-bar.mkxl
+++ b/tex/context/base/mkxl/anch-bar.mkxl
@@ -17,8 +17,8 @@
 
 %D This can be done better now ...
 
-%D We will implement a sidebar mechanism using the functionality from
-%D \type {core-pos}.
+%D We will implement a sidebar mechanism using the functionality from \type
+%D {core-pos}.
 %D
 %D \starttyping
 %D \definesidebar[whow][rulecolor=green,distance=0pt]
@@ -109,16 +109,14 @@
      \else
        \advance\d_anch_sidebars_distance\scratchdistance\relax
      \fi
-   \else
-     \ifnum\m_level=\plusone
-       \ifzeropt\scratchdimen
-         \advance\d_anch_sidebars_distance\scratchdistance\relax
-       \else
-         \d_anch_sidebars_distance\scratchdimen
-       \fi
+   \orelse\ifnum\m_level=\plusone
+     \ifzeropt\scratchdimen
+       \advance\d_anch_sidebars_distance\scratchdistance\relax
      \else
-       \d_anch_sidebars_distance\dimexpr\scratchdimen+\numexpr\m_level-\plusone\relax\dimexpr\scratchdistance\relax\relax
+       \d_anch_sidebars_distance\scratchdimen
      \fi
+   \else
+     \d_anch_sidebars_distance\dimexpr\scratchdimen+\numexpr\m_level-\plusone\relax\dimexpr\scratchdistance\relax\relax
    \fi
    \startpositionoverlay{\v!text-1}%
      \normalexpanded{\setMPpositiongraphicrange % maybe expand in definition
@@ -146,13 +144,8 @@
 %D one lua call).
 
 \startMPpositionmethod{mpos:sidebar}
-    \startMPpositiongraphic{mpos:sidebar}{linecolor,linewidth,distance,alternative}%
-        anch_sidebars_draw (
-            \MPp\MPbself,\MPp\MPeself,\MPy\MPbself,\MPy\MPeself,\MPh\MPbself,\MPd\MPeself,
-            \MPx{\textanchor},\MPy{\textanchor},\MPw{\textanchor},\MPh{\textanchor},
-            \MPvar{alternative},\MPvar{distance},\MPvar{linewidth},\MPvar{linecolor},
-            \MPvar{topoffset}, \MPvar{bottomoffset}
-        ) ;
+    \startMPpositiongraphic{mpos:sidebar}{linecolor,linewidth,distance,alternative}
+        anch_sidebars_draw("\MPbself", "\MPeself", "\textanchor") ;
     \stopMPpositiongraphic
     \MPpositiongraphic{mpos:sidebar}{}%
 \stopMPpositionmethod
-- 
cgit v1.2.3