diff options
Diffstat (limited to 'tex/context/base/meta-fun.lua')
-rw-r--r-- | tex/context/base/meta-fun.lua | 114 |
1 files changed, 57 insertions, 57 deletions
diff --git a/tex/context/base/meta-fun.lua b/tex/context/base/meta-fun.lua index e12298e8b..78ee25baf 100644 --- a/tex/context/base/meta-fun.lua +++ b/tex/context/base/meta-fun.lua @@ -1,57 +1,57 @@ -if not modules then modules = { } end modules ['meta-fun'] = {
- version = 1.001,
- comment = "companion to meta-fun.mkiv",
- author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
- copyright = "PRAGMA ADE / ConTeXt Development Team",
- license = "see context related readme files",
-}
-
--- very experimental, actually a joke ... see metafun manual for usage
-
-local format, load, type = string.format, load, type
-
-local metapost = metapost
-
-metapost.metafun = metapost.metafun or { }
-local metafun = metapost.metafun
-
-function metafun.topath(t,connector)
- context("(")
- if #t > 0 then
- for i=1,#t do
- if i > 1 then
- context(connector or "..")
- end
- local ti = t[i]
- if type(ti) == "string" then
- context(ti)
- else
- context("(%s,%s)",ti.x or ti[1] or 0,ti.y or ti[2] or 0)
- end
- end
- else
- context("origin")
- end
- context(")")
-end
-
-function metafun.interpolate(f,b,e,s,c)
- local done = false
- context("(")
- for i=b,e,(e-b)/s do
- local d = load(format("return function(x) return %s end",f))
- if d then
- d = d()
- if done then
- context(c or "...")
- else
- done = true
- end
- context("(%s,%s)",i,d(i))
- end
- end
- if not done then
- context("origin")
- end
- context(")")
-end
+if not modules then modules = { } end modules ['meta-fun'] = { + version = 1.001, + comment = "companion to meta-fun.mkiv", + author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", + copyright = "PRAGMA ADE / ConTeXt Development Team", + license = "see context related readme files", +} + +-- very experimental, actually a joke ... see metafun manual for usage + +local format, load, type = string.format, load, type + +local metapost = metapost + +metapost.metafun = metapost.metafun or { } +local metafun = metapost.metafun + +function metafun.topath(t,connector) + context("(") + if #t > 0 then + for i=1,#t do + if i > 1 then + context(connector or "..") + end + local ti = t[i] + if type(ti) == "string" then + context(ti) + else + context("(%s,%s)",ti.x or ti[1] or 0,ti.y or ti[2] or 0) + end + end + else + context("origin") + end + context(")") +end + +function metafun.interpolate(f,b,e,s,c) + local done = false + context("(") + for i=b,e,(e-b)/s do + local d = load(format("return function(x) return %s end",f)) + if d then + d = d() + if done then + context(c or "...") + else + done = true + end + context("(%s,%s)",i,d(i)) + end + end + if not done then + context("origin") + end + context(")") +end |