From 739710f590371de17ae0debb4dc38b0de270b9f3 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Thu, 20 Jun 2019 19:48:48 +0200
Subject: 2019-06-20 18:53:00

---
 tex/context/modules/mkiv/m-chart.lua | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'tex/context/modules/mkiv/m-chart.lua')

diff --git a/tex/context/modules/mkiv/m-chart.lua b/tex/context/modules/mkiv/m-chart.lua
index 7973640a7..1cdfd9f65 100644
--- a/tex/context/modules/mkiv/m-chart.lua
+++ b/tex/context/modules/mkiv/m-chart.lua
@@ -648,8 +648,8 @@ end
 
 -- todo : make lpeg for splitter
 
-local sign  = S("+p") /  "1"
-            + S("-m") / "-1"
+local sign  = S("+p")  /  "1"
+            + S("-mn") / "-1"
 
 local full  = C(P("left"))
             + C(P("right"))
@@ -962,6 +962,7 @@ local function makechart_indeed(chart)
     local labeloffset   = chartsettings.labeloffset
     local exitoffset    = chartsettings.exitoffset
     local commentoffset = chartsettings.commentoffset
+    local clipoffset    = chartsettings.clipoffset
     ctx_tographic(g,"flow_grid_width     := %p ;", gridwidth)
     ctx_tographic(g,"flow_grid_height    := %p ;", gridheight)
     ctx_tographic(g,"flow_shape_width    := %p ;", shapewidth)
@@ -996,6 +997,7 @@ local function makechart_indeed(chart)
         offset = radius -- or rulethickness?
     end
     ctx_tographic(g,"flow_chart_offset := %p ;",offset)
+    ctx_tographic(g,"flow_chart_clip_offset := %p ;",clipoffset)
     --
     ctx_tographic(g,"flow_reverse_y := true ;")
     if chartsettings.option == v_test then
@@ -1126,6 +1128,7 @@ implement {
                     { "ny", "integer" },
                     { "x", "integer" },
                     { "y", "integer" },
+                    { "clipoffset", "dimension" },
                     { "labeloffset", "dimension" },
                     { "commentoffset", "dimension" },
                     { "exitoffset", "dimension" },
-- 
cgit v1.2.3