From 2e2ea4b49f9f3101b4e09b77cd33fefc93c9c3cf Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Sun, 15 Aug 2010 01:39:09 +0200 Subject: drawing Wolfram automata (inefficient) --- mpliferc-global.lua | 59 ----------------------------------------------------- 1 file changed, 59 deletions(-) delete mode 100644 mpliferc-global.lua (limited to 'mpliferc-global.lua') diff --git a/mpliferc-global.lua b/mpliferc-global.lua deleted file mode 100644 index 3c735ed..0000000 --- a/mpliferc-global.lua +++ /dev/null @@ -1,59 +0,0 @@ --- --------------------------------------------------------------------------------- --- FILE: mpliferc-global.lua --- USAGE: with ConTeXt --- DESCRIPTION: default settings for the automaton module --- AUTHOR: Philipp Gesang (Phg), --- VERSION: 1.0 --- CREATED: 13/08/10 10:35:46 CEST --------------------------------------------------------------------------------- --- - -if not mplife then return 1 end - -mplife.setup.global = {} - -do - local c = {} - - 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.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.global = c -end - -return mplife.setup.global -- cgit v1.2.3