From 2e2ea4b49f9f3101b4e09b77cd33fefc93c9c3cf Mon Sep 17 00:00:00 2001
From: Philipp Gesang <pgesang@ix.urz.uni-heidelberg.de>
Date: Sun, 15 Aug 2010 01:39:09 +0200
Subject: drawing Wolfram automata (inefficient)

---
 automatarc.lua | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 automatarc.lua

(limited to 'automatarc.lua')

diff --git a/automatarc.lua b/automatarc.lua
new file mode 100644
index 0000000..506b7f5
--- /dev/null
+++ b/automatarc.lua
@@ -0,0 +1,53 @@
+if not mplife then return 1 end
+
+mplife.setup.rc = {}
+
+do
+    local c = {}
+
+    --c.file = "examples/10x10_glider.gol"
+    --c.file = "examples/gliders.gol"
+    c.file = "examples/ggun.gol"
+    --c.file = "examples/sships.gol"
+    c.rule = gol.parse_rule("B3/S23") -- default Conway
+    --c.init = gol.parse_file(c.file) 
+    c.last = c.init -- for successive mode
+
+    c.aspect = 3/4
+
+    c.extendx = 0
+    c.extendy = 0
+
+    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
-- 
cgit v1.2.3