blob: dde837237fe567054f67cc03a9866e92e505bfbf (
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
|
(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
(for [k 1 8]
(when (> (cell.aliveness (f (. neighbors k))) 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]
(let [n (neighbors> get 0)]
(if (or (= n 3)
(= n 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 1)
[0.2 0.2 0.3])
})
{: life : brain}
|