diff options
author | Philipp Gesang <pgesang@ix.urz.uni-heidelberg.de> | 2010-08-15 20:14:01 +0200 |
---|---|---|
committer | Philipp Gesang <pgesang@ix.urz.uni-heidelberg.de> | 2010-08-15 20:14:01 +0200 |
commit | 665d59554d270d8a56a43a2007981463581a055d (patch) | |
tree | ec707d41ee3545c3af51cee3b81dd98a933c1f75 /examples/automatarc-eca.lua | |
parent | 2e2ea4b49f9f3101b4e09b77cd33fefc93c9c3cf (diff) | |
download | automata-backgrounds-665d59554d270d8a56a43a2007981463581a055d.tar.gz |
restructured directory layout and renamed most files.
Diffstat (limited to 'examples/automatarc-eca.lua')
-rw-r--r-- | examples/automatarc-eca.lua | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/examples/automatarc-eca.lua b/examples/automatarc-eca.lua new file mode 100644 index 0000000..a56833e --- /dev/null +++ b/examples/automatarc-eca.lua @@ -0,0 +1,48 @@ +if not mplife then return 1 end + +mplife.setup.rc = {} + +do + local c = {} + + c.file = "initial-eca/w40r.eca" + c.init = eca.parse_file(c.file) + c.rule = eca.gen_rule(110) + + c.clip = "left" + + c.aspect = 3/4 -- default for S6 slide format + + c.pensize = .1 + c.color = { r = .6, g = .6, b = .8 } + c.opacity = 1/3 + c.fade = true + c.gestalt = "unitsquare" -- try "unitcircle" + + c.firstframe = 1 + c.frames = 5 + + c.preamble = [[ +\setupcolors[state=start] +\setupbackgrounds[state=start] +\setuppapersize[S6][S6] + +\setuppagenumbering[state=stop,location=] + +\defineoverlay[back][\ctxlua{mplife.successive()}] + +\setupbackgrounds [page] [background=back] +]] + c.before_frame = [[ +\startMPcode +pickup pencircle xyscaled (.25*]] .. c.pensize .. [[pt, ]] .. c.pensize .. [[pt) rotated 45; +]] + c.after_frame = [[ +currentpicture := currentpicture xysized (\the\paperwidth, \the\paperheight); +\stopMPcode +]] + + mplife.setup.rc = c +end + +return mplife.setup.rc |