2016-05-17 19:25:00

1 files changed, 0 insertions, 945 deletions

diff --git a/tex/context/base/m-chart.lua b/tex/context/base/m-chart.lua
deleted file mode 100644
index f1e7f4cb9..000000000
--- a/tex/context/base/m-chart.lua
+++ /dev/null
@@ -1,945 +0,0 @@
-if not modules then modules = { } end modules ['x-flow'] = {
-    version   = 1.001,
-    comment   = "companion to m-flow.mkvi",
-    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
-    copyright = "PRAGMA ADE / ConTeXt Development Team",
-    license   = "see context related readme files"
-}
-
--- when we can resolve mpcolor at the lua end we will
--- use metapost.graphic(....) directly
-
--- todo: labels
-
-moduledata.charts = moduledata.charts or { }
-
-local gsub, match, find, format, lower = string.gsub, string.match, string.find, string.format, string.lower
-local setmetatableindex = table.setmetatableindex
-local P, S, C, Cc, lpegmatch = lpeg.P, lpeg.S, lpeg.C, lpeg.Cc, lpeg.match
-
-local report_chart = logs.reporter("chart")
-
-local variables  = interfaces.variables
-
-local v_yes      = variables.yes
-local v_no       = variables.no
-local v_none     = variables.none
-local v_standard = variables.standard
-local v_overlay  = variables.overlay
-local v_round    = variables.round
-local v_test     = variables.test
-
-local defaults = {
-    chart = {
-        name            = "",
-        option          = "",
-        backgroundcolor = "",
-        width           = 100*65536,
-        height          = 50*65536,
-        dx              = 30*65536,
-        dy              = 30*65536,
-        offset          = 0,
-        bodyfont        = "",
-        dot             = "",
-        hcompact        = variables_no,
-        vcompact        = variables_no,
-        autofocus       = "",
-        focus           = "",
-        labeloffset     = 5*65536,
-        commentoffset   = 5*65536,
-        exitoffset      = 0,
-
-    },
-    shape = { -- FLOS
-        rulethickness   = 65536,
-        default         = "",
-        framecolor      = "darkblue",
-        backgroundcolor = "lightgray",
-    },
-    focus = { -- FLOF
-        rulethickness   = 65536,
-        framecolor      = "darkred",
-        backgroundcolor = "gray",
-    },
-    line = { -- FLOL
-        rulethickness   = 65536,
-        radius          = 10*65536,
-        color           = "darkgreen",
-        corner          = "",
-        dash            = "",
-        arrow           = "",
-        offset          = "",
-    },
-    set = { -- FLOX
-    },
-    split = {
-        nx      = 3,
-        ny      = 3,
-        command = "",
-        marking = "",
-        before  = "",
-        after   = "",
-    }
-}
-
-local validshapes = {
-    ["node"]            = { kind = "shape", number =  0 },
-    ["action"]          = { kind = "shape", number = 24 },
-    ["procedure"]       = { kind = "shape", number =  5 },
-    ["product"]         = { kind = "shape", number = 12 },
-    ["decision"]        = { kind = "shape", number = 14 },
-    ["archive"]         = { kind = "shape", number = 19 },
-    ["loop"]            = { kind = "shape", number = 35 },
-    ["wait"]            = { kind = "shape", number =  6 },
-    ["subprocedure"]    = { kind = "shape", number = 20 },
-    ["singledocument"]  = { kind = "shape", number = 32 },
-    ["multidocument"]   = { kind = "shape", number = 33 },
-
-    ["right"]           = { kind = "line",  number = 66 },
-    ["left"]            = { kind = "line",  number = 67 },
-    ["up"]              = { kind = "line",  number = 68 },
-    ["down"]            = { kind = "line",  number = 69 },
-}
-
-local validlabellocations = {
-    l  = "l",  left   = "l",
-    r  = "r",  right  = "r",
-    t  = "t",  top    = "t",
-    b  = "b",  bottom = "b",
-    lt = "lt",
-    rt = "rt",
-    lb = "lb",
-    rb = "rb",
-    tl = "tl",
-    tr = "tr",
-    bl = "bl",
-    br = "br",
-}
-
-local validcommentlocations = {
-    l  = "l",  left   = "l",
-    r  = "r",  right  = "r",
-    t  = "t",  top    = "t",
-    b  = "b",  bottom = "b",
-    lt = "lt",
-    rt = "rt",
-    lb = "lb",
-    rb = "rb",
-    tl = "tl",
-    tr = "tr",
-    bl = "bl",
-    br = "br",
-}
-
-local validtextlocations = {
-    l  = "l",  left   = "l",
-    r  = "r",  right  = "r",
-    t  = "t",  top    = "t",
-    b  = "b",  bottom = "b",
-    c  = "c",  center = "c",
-    m  = "c",  middle = "m",
-    lt = "lt",
-    rt = "rt",
-    lb = "lb",
-    rb = "rb",
-    tl = "lt",
-    tr = "rt",
-    bl = "lb",
-    br = "rb",
-}
-
-setmetatableindex(validshapes,function(t,k)
-    local l = gsub(lower(k)," ","")
-    local v = rawget(t,l)
-    if not v then
-        local n = tonumber(k)
-        if n then
-            v = { kind = "shape", number = n }
-        else
-            v = rawget(t,"action")
-        end
-    end
-    t[k] = v
-    return v
-end)
-
-local charts = { }
-
-local data, hash, temp, last_x, last_y, name
-
-function commands.flow_start_chart(chartname)
-    data = { }
-    hash = { }
-    last_x, last_y = 0, 0
-    name = chartname
-end
-
-function commands.flow_stop_chart()
-    charts[name] = {
-        data = data,
-        hash = hash,
-        last_x = last_x,
-        last_y = last_y,
-    }
-    data, hash, temp = nil, nil, nil
-end
-
--- function commands.flow_set(chartname,chartdata)
---     local hash = { }
---     local data = { }
---     charts[name] = {
---         data = data,
---         hash = hash,
---     }
---     for i=1,#chartdata do
---         local di = data[i]
---         local name = di.name or ""
---         if name then
---             data[#data+1] = {
---                 name        = name,
---                 labels      = di.labels      or { },
---                 comments    = di.comments    or { },
---                 exits       = di.exits       or { },
---                 connections = di.connections or { },
---                 settings    = di.settings    or { },
---                 x           = di.x           or 1,
---                 y           = di.y           or 1,
---             }
---             hash[name] = i
---         end
---      end
--- end
-
-function commands.flow_reset(chartname)
-    charts[name] = nil
-end
-
-function commands.flow_set_current_cell(n)
-    temp = data[tonumber(n)] or { }
-end
-
-function commands.flow_start_cell(settings)
-    temp = {
-        texts       = { },
-        labels      = { },
-        exits       = { },
-        connections = { },
-        settings    = settings,
-        x           = 1,
-        y           = 1,
-        realx       = 1,
-        realy       = 1,
-        name        = "",
-    }
-end
-
-function commands.flow_stop_cell()
-    data[#data+1] = temp
-    hash[temp.name or #data] = temp
-end
-
-function commands.flow_set_name(str)
-    temp.name = str
-end
-
-function commands.flow_set_shape(str)
-    temp.shape = str
-end
-
-function commands.flow_set_destination(str)
-    temp.destination = str
-end
-
-function commands.flow_set_text(align,str)
-    temp.texts[#temp.texts+1] = {
-        location = align,
-        text = str,
-    }
-end
-
-function commands.flow_set_overlay(str)
-    temp.overlay = str
-end
-
-function commands.flow_set_focus(str)
-    temp.focus = str
-end
-
-function commands.flow_set_figure(str)
-    temp.figure = str
-end
-
-function commands.flow_set_label(location,text)
-    temp.labels[#temp.labels+1] = {
-        location = location,
-        text = text,
-    }
-end
-
-function commands.flow_set_comment(location,text)
-    local connections = temp.connections
-    if connections then
-        local connection = connections[#connections]
-        if connection then
-            local comments = connection.comments
-            if comments then
-                comments[#comments+1] = {
-                    location = location,
-                    text = text,
-                }
-            end
-        end
-    end
-end
-
-function commands.flow_set_exit(location,text)
-    temp.exits[#temp.exits+1] = {
-        location = location,
-        text = text,
-    }
-end
-
-function commands.flow_set_include(name,x,y,settings)
-    data[#data+1] = {
-        include  = name,
-        x        = x,
-        y        = y,
-     -- settings = settings,
-    }
-end
-
-local function inject(includedata,data,hash)
-    local subchart = charts[includedata.include]
-    if not subchart then
-        return
-    end
-    local subdata = subchart.data
-    if not subdata then
-        return
-    end
-    local xoffset  = (includedata.x or 1) - 1
-    local yoffset  = (includedata.y or 1) - 1
-    local settings = includedata.settings
-    for i=1,#subdata do
-        local si = subdata[i]
-        if si.include then
-            inject(si,data,hash)
-        else
-            local x = si.x + xoffset
-            local y = si.y + yoffset
-            local t = {
-                x        = x,
-                y        = y,
-                realx    = x,
-                realy    = y,
-                settings = settings,
-            }
-            setmetatableindex(t,si)
-            data[#data+1] = t
-            hash[si.name or #data] = t
-        end
-    end
-end
-
-local function pack(data,field)
-    local list, max = { }, 0
-    for e=1,#data do
-        local d = data[e]
-        local f = d[field]
-        list[f] = true
-        if f > max then
-            max = f
-        end
-    end
-    for i=1,max do
-        if not list[i] then
-            for e=1,#data do
-                local d = data[e]
-                local f = d[field]
-                if f > i then
-                    d[field] = f - 1
-                end
-            end
-        end
-    end
-end
-
-local function expanded(chart,chartsettings)
-    local expandeddata = { }
-    local expandedhash = { }
-    local expandedchart = {
-        data = expandeddata,
-        hash = expandedhash,
-    }
-    setmetatableindex(expandedchart,chart)
-    local data = chart.data
-    local hash = chart.hash
-    for i=1,#data do
-        local di = data[i]
-        if di.include then
-            inject(di,expandeddata,expandedhash)
-        else
-            expandeddata[#expandeddata+1]  = di
-            expandedhash[di.name or #expandeddata] = di
-        end
-    end
-    --
-    expandedchart.settings = chartsettings or { }
-    -- make locals
-    chartsettings.shape = chartsettings.shape or { }
-    chartsettings.focus = chartsettings.focus or { }
-    chartsettings.line  = chartsettings.line  or { }
-    chartsettings.set   = chartsettings.set   or { }
-    chartsettings.split = chartsettings.split or { }
-    chartsettings.chart = chartsettings.chart or { }
-    setmetatableindex(chartsettings.shape,defaults.shape)
-    setmetatableindex(chartsettings.focus,defaults.focus)
-    setmetatableindex(chartsettings.line ,defaults.line )
-    setmetatableindex(chartsettings.set  ,defaults.set  )
-    setmetatableindex(chartsettings.split,defaults.split)
-    setmetatableindex(chartsettings.chart,defaults.chart)
-    --
-    if chartsettings.chart.vcompact == v_yes then
-        pack(expandeddata,"y")
-    end
-    if chartsettings.chart.hcompact == v_yes then
-        pack(expandeddata,"x")
-    end
-    --
-    for i=1,#expandeddata do
-        local cell = expandeddata[i]
-        local settings = cell.settings
-        if not settings then
-            cell.settings = chartsettings
-        else
-            settings.shape = settings.shape or { }
-            settings.focus = settings.focus or { }
-            settings.line  = settings.line  or { }
-            setmetatableindex(settings.shape,chartsettings.shape)
-            setmetatableindex(settings.focus,chartsettings.focus)
-            setmetatableindex(settings.line ,chartsettings.line)
-        end
-    end
-    return expandedchart
-end
-
-local splitter = lpeg.splitat(",")
-
-function commands.flow_set_location(x,y)
-    if type(x) == "string" and not y then
-        x, y = lpegmatch(splitter,x)
-    end
-    if not x or x == "" then
-        x = last_x
-    elseif type(x) == "number" then
-        -- ok
-    elseif x == "+" then
-        x = last_x + 1
-    elseif x == "-" then
-        x = last_x - 1
-    elseif find(x,"^[%+%-]") then
-        x = last_x + (tonumber(x) or 0)
-    else
-        x = tonumber(x)
-    end
-    if not y or y == "" then
-        y = last_y
-    elseif type(y) == "number" then
-        -- ok
-    elseif y == "+" then
-        y = last_y + 1
-    elseif x == "-" then
-        y = last_y - 1
-    elseif find(y,"^[%+%-]") then
-        y = last_y + (tonumber(y) or 0)
-    else
-        y = tonumber(y)
-    end
-    temp.x     = x or 1
-    temp.y     = y or 1
-    temp.realx = x or 1
-    temp.realy = y or 1
-    last_x     = x or last_x
-    last_y     = y or last_y
-end
-
-function commands.flow_set_connection(location,displacement,name)
-    local dx, dy = lpegmatch(splitter,displacement)
-    dx = tonumber(dx)
-    dy = tonumber(dy)
-    temp.connections[#temp.connections+1] = {
-        location = location,
-        dx       = dx or 0,
-        dy       = dy or 0,
-        name     = name,
-        comments = { },
-    }
-end
-
-local function visible(chart,cell)
-    local x, y = cell.x, cell.y
-    return
-        x >= chart.from_x and x <= chart.to_x and
-        y >= chart.from_y and y <= chart.to_y and cell
-end
-
-local function process_cells(chart,xoffset,yoffset)
-    local data = chart.data
-    if not data then
-        return
-    end
-    local focus = utilities.parsers.settings_to_hash(chart.settings.chart.focus or "")
-    for i=1,#data do
-        local cell = visible(chart,data[i])
-        if cell then
-            local settings = cell.settings
-            local shapesettings = settings.shape
-            local shape = cell.shape
-            if not shape or shape == "" then
-                shape = shapesettings.default or "none"
-            end
-            if shape ~= v_none then
-                local shapedata = validshapes[shape]
-                context("flow_begin_sub_chart ;") -- when is this needed
-                if shapedata.kind == "line" then
-                    local linesettings = settings.line
-                    context("flow_shape_line_color := \\MPcolor{%s} ;", linesettings.color)
-                    context("flow_shape_fill_color := \\MPcolor{%s} ;", linesettings.backgroundcolor)
-                    context("flow_shape_line_width := %p ; ",           linesettings.rulethickness)
-                elseif focus[cell.focus] or focus[cell.name] then
-                    local focussettings = settings.focus
-                    context("flow_shape_line_color := \\MPcolor{%s} ;", focussettings.framecolor)
-                    context("flow_shape_fill_color := \\MPcolor{%s} ;", focussettings.backgroundcolor)
-                    context("flow_shape_line_width := %p ; ",           focussettings.rulethickness)
-                else
-                    local shapesettings = settings.shape
-                    context("flow_shape_line_color := \\MPcolor{%s} ;", shapesettings.framecolor)
-                    context("flow_shape_fill_color := \\MPcolor{%s} ;", shapesettings.backgroundcolor)
-                    context("flow_shape_line_width := %p ; " ,          shapesettings.rulethickness)
-                end
-                context("flow_peepshape := false ;")   -- todo
-                context("flow_new_shape(%s,%s,%s) ;",cell.x+xoffset,cell.y+yoffset,shapedata.number)
-                context("flow_end_sub_chart ;")
-            end
-        end
-    end
-end
-
--- todo : make lpeg for splitter
-
-local sign  = S("+p") /  "1"
-            + S("-m") / "-1"
-
-local full  = C(P("left"))
-            + C(P("right"))
-            + C(P("top"))
-            + C(P("bottom"))
-
-local char  = P("l") / "left"
-            + P("r") / "right"
-            + P("t") / "top"
-            + P("b") / "bottom"
-
-local space = P(" ")^0
-
-local what  = space
-            * (sign + Cc("0"))
-            * space
-            * (full + char)
-            * space
-            * (sign + Cc("0"))
-            * space
-            * (full + char)
-            * space
-            * P(-1)
-
--- print(lpegmatch(what,"lr"))
--- print(lpegmatch(what,"+l+r"))
--- print(lpegmatch(what,"+l"))
--- print(lpegmatch(what,"+ left+r     "))
-
-local function process_connections(chart,xoffset,yoffset)
-    local data = chart.data
-    local hash = chart.hash
-    if not data then
-        return
-    end
-    local settings = chart.settings
-    for i=1,#data do
-        local cell = visible(chart,data[i])
-        if cell then
-            local connections = cell.connections
-            for j=1,#connections do
-                local connection = connections[j]
-                local othername = connection.name
-                local othercell = hash[othername]
-                if othercell then -- and visible(chart,data[i]) then
-                    local cellx, celly = cell.x, cell.y
-                    local otherx, othery, location = othercell.x, othercell.y, connection.location
-                    if otherx > 0 and othery > 0 and cellx > 0 and celly > 0 and connection.location then
-                        local what_cell, where_cell, what_other, where_other = lpegmatch(what,location)
-                        if what_cell and where_cell and what_other and where_other then
-                            local linesettings = settings.line
-                            context("flow_smooth := %s ;", linesettings.corner == v_round and "true" or "false")
-                            context("flow_dashline := %s ;", linesettings.dash == v_yes and "true" or "false")
-                            context("flow_arrowtip := %s ;", linesettings.arrow == v_yes and "true" or "false")
-                            context("flow_touchshape := %s ;", linesettings.offset == v_none and "true" or "false")
-                            context("flow_dsp_x := %s ; flow_dsp_y := %s ;",connection.dx or 0, connection.dy or 0)
-                            context("flow_connection_line_color := \\MPcolor{%s} ;",linesettings.color)
-                            context("flow_connection_line_width := %p ;",linesettings.rulethickness)
-                            context("flow_connect_%s_%s (%s) (%s,%s,%s) (%s,%s,%s) ;",where_cell,where_other,j,cellx,celly,what_cell,otherx,othery,what_other)
-                            context("flow_dsp_x := 0 ; flow_dsp_y := 0 ;")
-                        end
-                    end
-                end
-            end
-        end
-    end
-end
-
-local texttemplate = "\\setvariables[flowcell:text][x=%s,y=%s,text={%s},align={%s},figure={%s},destination={%s}]"
-
-local splitter = lpeg.splitat(":")
-
-local function process_texts(chart,xoffset,yoffset)
-    local data = chart.data
-    local hash = chart.hash
-    if not data then
-        return
-    end
-    for i=1,#data do
-        local cell = visible(chart,data[i])
-        if cell then
-            local x = cell.x or 1
-            local y = cell.y or 1
-            local texts = cell.texts
-            for i=1,#texts do
-                local text = texts[i]
-                local data = text.text
-                local align = validlabellocations[text.align or ""] or text.align or ""
-                local figure = i == 1 and cell.figure or ""
-                local destination = i == 1 and cell.destination or ""
-                context('flow_chart_draw_text(%s,%s,textext("%s")) ;',x,y,format(texttemplate,x,y,data,align,figure,destination))
-            end
-            local labels = cell.labels
-            for i=1,#labels do
-                local label = labels[i]
-                local text = label.text
-                local location = validlabellocations[label.location or ""] or label.location or ""
-                if text and location then
-                    context('flow_chart_draw_label(%s,%s,"%s",textext("\\strut %s")) ;',x,y,location,text)
-                end
-            end
-            local exits = cell.exits
-            for i=1,#exits do
-                local exit = exits[i]
-                local text = exit.text
-                local location = validlabellocations[exit.location or ""]
-                if text and location then
-                    -- maybe make autoexit an option
-                    if location == "l" and x == chart.from_x + 1 or
-                       location == "r" and x == chart.to_x   - 1 or
-                       location == "t" and y == chart.to_y   - 1 or
-                       location == "b" and y == chart.from_y + 1 then
-                        context('flow_chart_draw_exit(%s,%s,"%s",textext("\\strut %s")) ;',x,y,location,text)
-                    end
-                end
-            end
-            local connections = cell.connections
-            for i=1,#connections do
-                local comments = connections[i].comments
-                for j=1,#comments do
-                    local comment = comments[j]
-                    local text = comment.text
-                    local location = comment.location or ""
-                    local length = 0
-                    -- "tl" "tl:*" "tl:0.5"
-                    local loc, len = lpegmatch(splitter,location) -- do the following in lpeg
-                    if len == "*" then
-                        location = validcommentlocations[loc] or ""
-                        if location == "" then
-                            location = "*"
-                        else
-                            location = location .. ":*"
-                        end
-                    elseif loc then
-                        location = validcommentlocations[loc] or "*"
-                        length = tonumber(len) or 0
-                    else
-                        location = validcommentlocations[location] or ""
-                    end
-                    if text and location then
-                        context('flow_chart_draw_comment(%s,%s,%s,"%s",%s,textext("\\strut %s")) ;',x,y,i,location,length,text)
-                    end
-                end
-            end
-        end
-    end
-end
-
-local function getchart(settings,forced_x,forced_y,forced_nx,forced_ny)
-    if not settings then
-        print("no settings given")
-        return
-    end
-    local chartname = settings.chart.name
-    if not chartname then
-        print("no name given")
-        return
-    end
-    local chart = charts[chartname]
-    if not chart then
-        print("no such chart",chartname)
-        return
-    end
--- chart = table.copy(chart)
-    chart = expanded(chart,settings)
-    local chartsettings = chart.settings.chart
-    local autofocus = chart.settings.chart.autofocus
-    if autofocus then
-        autofocus = utilities.parsers.settings_to_hash(autofocus)
-        if not next(autofocus) then
-            autofocus = false
-        end
-    end
-    -- check natural window
-    local x  = forced_x  or tonumber(chartsettings.x)
-    local y  = forced_y  or tonumber(chartsettings.y)
-    local nx = forced_nx or tonumber(chartsettings.nx)
-    local ny = forced_ny or tonumber(chartsettings.ny)
-    --
-    local minx, miny, maxx, maxy = 0, 0, 0, 0
-    local data = chart.data
-    for i=1,#data do
-        local cell = data[i]
-        if not autofocus or autofocus[cell.name] then -- offsets probably interfere with autofocus
-            local x = cell.x
-            local y = cell.y
-            if minx == 0 or x < minx then minx = x end
-            if miny == 0 or y < miny then miny = y end
-            if minx == 0 or x > maxx then maxx = x end
-            if miny == 0 or y > maxy then maxy = y end
-        end
-    end
- -- print("1>",x,y,nx,ny)
- -- print("2>",minx, miny, maxx, maxy)
-    -- check of window should be larger (maybe autofocus + nx/ny?)
-    if autofocus then
-        -- x and y are ignored
-        if nx and nx > 0 then
-            maxx = minx + nx - 1
-        end
-        if ny and ny > 0 then
-            maxy = miny + ny - 1
-        end
-    else
-        if x and x > 0 then
-            minx = x
-        end
-        if y and y > 0 then
-            miny = y
-        end
-        if nx and nx > 0 then
-            maxx = minx + nx - 1
-        end
-        if ny and ny > 0 then
-            maxy = miny + ny - 1
-        end
-    end
--- print("3>",minx, miny, maxx, maxy)
-    --
-    local nx = maxx - minx + 1
-    local ny = maxy - miny + 1
-    -- relocate cells
-    for i=1,#data do
-        local cell = data[i]
-        cell.x = cell.realx - minx + 1
-        cell.y = cell.realy - miny + 1
-    end
-    chart.from_x = 1
-    chart.from_y = 1
-    chart.to_x   = nx
-    chart.to_y   = ny
-    chart.nx     = nx
-    chart.ny     = ny
-    --
-    chart.shift_x = minx + 1
-    chart.shift_y = miny + 1
-    --
-    return chart
-end
-
-local function makechart(chart)
-    local settings      = chart.settings
-    local chartsettings = settings.chart
-    --
-    context.begingroup()
-    context.forgetall()
-    --
-    context.startMPcode()
-    context("if unknown context_flow : input mp-char.mpiv ; fi ;")
-    context("flow_begin_chart(0,%s,%s);",chart.nx,chart.ny)
-    --
-    if chartsettings.option == v_test or chartsettings.dot == v_yes then
-        context("flow_show_con_points := true ;")
-        context("flow_show_mid_points := true ;")
-        context("flow_show_all_points := true ;")
-    elseif chartsettings.dot ~= "" then -- no checking done, private option
-        context("flow_show_%s_points := true ;",chartsettings.dot)
-    end
-    --
-    local backgroundcolor = chartsettings.backgroundcolor
-    if backgroundcolor and backgroundcolor ~= "" then
-        context("flow_chart_background_color := \\MPcolor{%s} ;",backgroundcolor)
-    end
-    --
-    local shapewidth    = chartsettings.width
-    local gridwidth     = shapewidth + 2*chartsettings.dx
-    local shapeheight   = chartsettings.height
-    local gridheight    = shapeheight + 2*chartsettings.dy
-    local chartoffset   = chartsettings.offset
-    local labeloffset   = chartsettings.labeloffset
-    local exitoffset    = chartsettings.exitoffset
-    local commentoffset = chartsettings.commentoffset
-    context("flow_grid_width     := %p ;", gridwidth)
-    context("flow_grid_height    := %p ;", gridheight)
-    context("flow_shape_width    := %p ;", shapewidth)
-    context("flow_shape_height   := %p ;", shapeheight)
-    context("flow_chart_offset   := %p ;", chartoffset)
-    context("flow_label_offset   := %p ;", labeloffset)
-    context("flow_exit_offset    := %p ;", exitoffset)
-    context("flow_comment_offset := %p ;", commentoffset)
-    --
-    local radius = settings.line.radius
-    local rulethickness = settings.line.rulethickness
-    local dx = chartsettings.dx
-    local dy = chartsettings.dy
-    if radius < rulethickness then
-        radius = 2.5*rulethickness
-        if radius > dx then
-            radius = dx
-        end
-        if radius > dy then
-            radius = dy
-        end
-    end
-    context("flow_connection_line_width  := %p ;", rulethickness)
-    context("flow_connection_smooth_size := %p ;", radius)
-    context("flow_connection_arrow_size  := %p ;", radius)
-    context("flow_connection_dash_size   := %p ;", radius)
-    --
-    local offset = chartsettings.offset -- todo: pass string
-    if offset == v_none or offset == v_overlay or offset == "" then
-        offset = -2.5 * radius -- or rulethickness?
-    elseif offset == v_standard then
-        offset = radius -- or rulethickness?
-    end
-    context("flow_chart_offset := %p ;",offset)
-    --
-    context("flow_reverse_y := true ;")
-    process_cells(chart,0,0)
-    process_connections(chart,0,0)
-    process_texts(chart,0,0)
- -- context("clip_chart(%s,%s,%s,%s) ;",x,y,nx,ny) -- todo: draw lines but not shapes
-    context("flow_end_chart ;")
-    context.stopMPcode()
-    context.endgroup()
-end
-
-local function splitchart(chart)
-    local settings      = chart.settings
-    local splitsettings = settings.split
-    local chartsettings = settings.chart
-    --
-    local name = chartsettings.name
-    --
-    local from_x = chart.from_x
-    local from_y = chart.from_y
-    local to_x   = chart.to_x
-    local to_y   = chart.to_y
-    --
-    local step_x  = splitsettings.nx or to_x
-    local step_y  = splitsettings.ny or to_y
-    local delta_x = splitsettings.dx or 0
-    local delta_y = splitsettings.dy or 0
-    --
-    report_chart("spliting %a from (%s,%s) upto (%s,%s) with steps (%s,%s) and overlap (%s,%s)",
-        name,from_x,from_y,to_x,to_y,step_x,step_y,delta_x,delta_y)
-    --
-    local part_x = 0
-    local first_x = from_x
-    while true do
-        part_x = part_x + 1
-        local last_x = first_x + step_x - 1
-        local done = last_x >= to_x
-        if done then
-            last_x = to_x
-        end
--- if first_x >= to_x then
---     break
--- end
-        local part_y = 0
-        local first_y = from_y
-        while true do
-            part_y = part_y + 1
-            local last_y = first_y + step_y - 1
-            local done = last_y >= to_y
-            if done then
-                last_y = to_y
-            end
--- if first_y >= to_y then
---     break
--- end
-            --
-local data = chart.data
-for i=1,#data do
-    local cell = data[i]
---     inspect(cell)
-    local cx, cy = cell.x, cell.y
-    if cx >= first_x and cx <= last_x then
-        if cy >= first_y and cy <= last_y then
-            report_chart("part (%s,%s) of %a is split from (%s,%s) -> (%s,%s)",part_x,part_y,name,first_x,first_y,last_x,last_y)
-            local x  = first_x
-            local y  = first_y
-            local nx = last_x - first_x + 1
-            local ny = last_y - first_y + 1
-            context.beforeFLOWsplit()
-            context.handleFLOWsplit(function()
-                makechart(getchart(settings,x,y,nx,ny)) -- we need to pass frozen settings !
-            end)
-            context.afterFLOWsplit()
-            break
-        end
-    end
-end
-            --
-            if done then
-                break
-            else
-                first_y = last_y + 1 - delta_y
-            end
-        end
-        if done then
-            break
-        else
-            first_x = last_x + 1 - delta_x
-        end
-    end
-end
-
-function commands.flow_make_chart(settings)
-    local chart = getchart(settings)
-    if chart then
-        local settings = chart.settings
-        if settings then
-            local chartsettings = settings.chart
-            if chartsettings and chartsettings.split == v_yes then
-                splitchart(chart)
-            else
-                makechart(chart)
-            end
-        else
-            makechart(chart)
-        end
-    end
-end