summaryrefslogtreecommitdiff
path: root/examples/automatarc-eca.lua
diff options
context:
space:
mode:
Diffstat (limited to 'examples/automatarc-eca.lua')
-rw-r--r--examples/automatarc-eca.lua48
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