blob: 442c7c7b8e8067f04ee84a6cdc531695d03cc562 (
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
(local cell (require :lib.cell))
(local neighbors [{:x -1 :y -1}
{:x -1 :y 0}
{:x -1 :y 1}
{:x 0 :y -1}
{:x 0 :y 1}
{:x 1 :y -1}
{:x 1 :y 0}
{:x 1 :y 1}])
(fn neighbors> [f threshold]
(var x 0)
;; nnn this could be faster maybe
(each [k v (ipairs neighbors)]
(when (> (cell.aliveness (f v)) threshold)
(set x (+ x 1))))
x)
(local life
{cell.init
(fn [self]
(setmetatable {} self))
cell.birth
(fn [self get]
(if (= (neighbors> get 0) 3)
self
nil))
cell.update
(fn [self get]
(if (or (= (neighbors> get 0) 3)
(= (neighbors> get 0) 2))
self
nil))
cell.aliveness
#1
cell.color
#[0.4 0.4 0.7]
})
(local brain
{cell.init
(fn [self]
(setmetatable {:stage 0} self))
cell.birth
(fn [self get]
(if (= (neighbors> get 0.8) 2)
(do
(setmetatable {:stage 0} (getmetatable self)))
nil))
cell.update
(fn [self get]
(if (= self.stage 0)
(setmetatable {:stage 1} (getmetatable self))
nil))
cell.aliveness
#(- 1 (* 0.5 $.stage))
cell.color
#(if (= $.stage 0)
[0.7 0.4 0.3]
(= $.stage 5)
[0.5 0.4 0.3]
(= $.stage 1)
[0.2 0.2 0.3])
})
{: life : brain}
|