Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Annotation of /tests/lamont-tests/life2.diderot
ViewVC logotype

Annotation of /tests/lamont-tests/life2.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4640 - (view) (download)

1 : glk 4640
2 :     input int iterMax = 10;
3 :    
4 :     //int sizeX = 31; int sizeY = 13;
5 :     //field#0(2)[] init = tent ⊛ image("twinbeesshuttle.nrrd");
6 :    
7 :     int sizeX = 8;
8 :     int sizeY = 9;
9 :     field#0(2)[] init = tent ⊛ image("data/glider.nrrd");
10 :    
11 :     real rr = sqrt(2)+0.001;
12 :    
13 :     strand cell (int id0, vec2 pos0, int val0) {
14 :     vec2 pos = pos0;
15 :     output int val = val0;
16 :     int iter = 0;
17 :     int id = id0;
18 :    
19 :     update {
20 :     if (iter == iterMax) {
21 :     stabilize;
22 :     }
23 :     if (iter == iterMax-1 && 0 == id) {
24 :     print("------------------------- iter ", iter, "\n");
25 :     }
26 :     if (iter == iterMax-1) {
27 :     print(id, ": ", val, " @ [", pos[0], ",", pos[1], "]\n");
28 :     }
29 :     int nn = 0;
30 :     int totnn = 0;
31 :     foreach (cell c in sphere(rr)) {
32 :     totnn += 1;
33 :     nn += 1 if (c.val > 0.5) else 0;
34 :     if (iter == iterMax-1) {
35 :     print(" ", c.id, ": ", c.val, " @ [", c.pos[0], ",", c.pos[1], "]; nn --> ", nn, "\n");
36 :     }
37 :     }
38 :     if (pos[0] > 0.1 && pos[1] > 0.1 && pos[0] < sizeX-1.1 && pos[1] < sizeY-1.1) {
39 :     if (8 != totnn) {
40 :     print(" HEY HEY tot # neighbors ", totnn, " != 8 !!!!\n");
41 :     }
42 :     }
43 :     val = (1 if (3 == nn) else
44 :     (val if (2 == nn) else
45 :     0));
46 :     if (iter == iterMax-1) {
47 :     print(" --> ", val, "\n");
48 :     }
49 :     iter += 1;
50 :     }
51 :     }
52 :    
53 :     initially [ cell(ii + sizeX*jj,
54 :     [ii, jj],
55 :     1 if init([ii,jj]) > 0.5 else 0)
56 :     | jj in 0..sizeY-1, ii in 0..sizeX-1 ];

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0