blob: 09d2476da7985732d2a363f9f07ede3159c84c1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
if not mplife then return 1 end
mplife.setup.rc = {}
do
local c = {}
--c.file = "initial-gol/10x10_glider.gol"
--c.file = "initial-gol/gliders.gol"
--c.file = "initial-gol/ggun.gol"
c.file = "initial-gol/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 as used in slides
c.aspect = 3/4 -- S6 and similar
c.extendxy = 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
|
