From: Peter Rolf <indiego@gmx.net>
To: mailing list for ConTeXt users <ntg-context@ntg.nl>
Subject: runtime problem with metafun() code
Date: Fri, 24 Jan 2014 13:35:27 +0100 [thread overview]
Message-ID: <52E25E0F.3060304@gmx.net> (raw)
[-- Attachment #1: Type: text/plain, Size: 352 bytes --]
Hi,
I try to create a Metapost path in lua and it works so far for the
attached example. But a call of that function from another lua function
sadly fails (no path visible after call). The code seems to be executed
later (the output from 'show pid;' appears somewhere later in the log).
How can I ensure that the code is executed at runtime?
Peter
[-- Attachment #2: mplua.lua --]
[-- Type: text/x-lua, Size: 1157 bytes --]
thirddata = thirddata or { }
thirddata.drops = thirddata.drops or { }
local drops = thirddata.drops
local metafun = context.metafun
local format,todimen = string.format, string.todimen
local floor = math.floor
-- http://lua-users.org/wiki/SimpleRound
local function round(num, idp)
local mult = 10^(idp or 0)
return floor(num * mult + 0.5) / mult
end
function drops.numberofpixels(n,idp)
local dimenfactor = 1/tex.pdfpxdimen
return round(todimen(n)*dimenfactor,idp)
end
local numberofpixels = drops.numberofpixels
function drops.generate_default_path(id,width,height,radius)
local w,h,r
w = numberofpixels(width); h = numberofpixels(height); r = numberofpixels(radius)
metafun.start()
metafun("save p,pid; path p; string pid;")
-- metafun("id := \"drops:boxshadow_w%sh%sr%s\";",w,h,r)
metafun("pid := \"%s\";",id)
--metafun("show pid;") -- ok
metafun("p:= unitsquare xyscaled(%s,%s) smoothed %s;",w,h,r)
metafun("passvariable(pid,p);")
metafun("setbounds currentpicture to boundingbox(p);") -- 'activator'; void graphics are ignored
metafun.stop()
end
[-- Attachment #3: mplua.mkiv --]
[-- Type: text/plain, Size: 235 bytes --]
\ctxloadluafile{mplua}{}
\starttext
\ctxlua{metapost.showlog = true}
\ctxlua{thirddata.drops.generate_default_path("drops:boxshadow-w199h100r10","200pt","100pt","10pt")}
\ctxlua{inspect(metapost.variables)}
\stoptext
[-- Attachment #4: Type: text/plain, Size: 485 bytes --]
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
next reply other threads:[~2014-01-24 12:35 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-01-24 12:35 Peter Rolf [this message]
2014-01-24 13:45 ` Hans Hagen
2014-01-24 18:41 ` Peter Rolf
2014-01-25 0:07 ` Hans Hagen
2014-01-25 12:58 ` Peter Rolf
2014-01-27 12:12 ` Hans Hagen
2014-01-27 13:17 ` Peter Rolf
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=52E25E0F.3060304@gmx.net \
--to=indiego@gmx.net \
--cc=ntg-context@ntg.nl \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).