Work with Mark: Cellular Automata
2006-09-18 00:05
research,
supercollider
Another thing I played around with while at UoW was cellular automata. Here's a simple one-dimensional CA class for SuperCollider... external link (or attached as zip below)

And here is some more SuperCollider code I wrote to come to grips with CA...
/*cellular automata /redFrik*/
(
var w, u, width= 400, height= 300, cellWidth= 1, cellHeight= 1;
w= Window("ca - 1", Rect(128, 64, width, height), false);
u= UserView(w, Rect(0, 0, width, height));
u.background= Color.white;
u.drawFunc= {
var pat, dict, rule, ruleRand, y= 0;
/*
rule30= 30.asBinaryDigits; // [0, 0, 0, 1, 1, 1, 1, 0];
rule90= 90.asBinaryDigits; // [0, 1, 0, 1, 1, 0, 1, 0];
rule110= 110.asBinaryDigits; // [0, 1, 1, 0, 1, 1, 1, 0];
rule250= 250.asBinaryDigits; // [1, 1, 1, 1, 1, 0, 1, 0];
rule254= 254.asBinaryDigits; // [1, 1, 1, 1, 1, 1, 1, 0];
*/
/*-- select rule here --*/
//rule= 256.rand.postln;
//rule= 90;
rule= 30;
pat= 0.dup((width/cellWidth).round);
pat.put((pat.size/2).round, 1);
dict= ();
8.do{|i| dict.put(i.asBinaryDigits(3).join.asSymbol, rule.asBinaryDigits[7-i])};
//--render
Pen.fillColor= Color.black;
while({y*cellHeight<height}, {
pat.do{|c, x|
if(c==1, {
Pen.fillRect(Rect(x*cellWidth, y*cellHeight, cellWidth, cellHeight));
});
};
pat= [0]++pat.slide(3, 1).clump(3).collect{|c|
dict.at(c.join.asSymbol);
}++[0];
y= y+1;
});
};
w.front;
)


More interesting than these simple examples are of course things like game-of-life.

Here's one implementation of GOL for SuperCollider...
//game of life /redFrik
(
var envir, copy, neighbours, preset, rule, wrap;
var w, u, width= 200, height= 200, rows= 50, cols= 50, cellWidth, cellHeight;
w= Window("ca - 2 pen", Rect(128, 64, width, height), false);
u= UserView(w, Rect(0, 0, width, height));
u.background= Color.white;
cellWidth= width/cols;
cellHeight= height/rows;
wrap= true; //if borderless envir
/*-- select rule here --*/
//rule= #[[], [3]];
//rule= #[[5, 6, 7, 8], [3, 5, 6, 7, 8]];
//rule= #[[], [2]]; //rule "/2" seeds
//rule= #[[], [2, 3, 4]];
//rule= #[[1, 2, 3, 4, 5], [3]];
//rule= #[[1, 2, 5], [3, 6]];
//rule= #[[1, 3, 5, 7], [1, 3, 5, 7]];
//rule= #[[1, 3, 5, 8], [3, 5, 7]];
rule= #[[2, 3], [3]]; //rule "23/3" conway's life
//rule= #[[2, 3], [3, 6]]; //rule "23/36" highlife
//rule= #[[2, 3, 5, 6, 7, 8], [3, 6, 7, 8]];
//rule= #[[2, 3, 5, 6, 7, 8], [3, 7, 8]];
//rule= #[[2, 3, 8], [3, 5, 7]];
//rule= #[[2, 4, 5], [3]];
//rule= #[[2, 4, 5], [3, 6, 8]];
//rule= #[[3, 4], [3, 4]];
//rule= #[[3, 4, 6, 7, 8], [3, 6, 7, 8]]; //rule "34578/3678" day&night
//rule= #[[4, 5, 6, 7], [3, 5, 6, 7, 8]];
//rule= #[[4, 5, 6], [3, 5, 6, 7, 8]];
//rule= #[[4, 5, 6, 7, 8], [3]];
//rule= #[[5], [3, 4, 6]];
neighbours= #[[-1, -1], [0, -1], [1, -1], [-1, 0], [1, 0], [-1, 1], [0, 1], [1, 1]];
envir= Array2D(rows, cols);
copy= Array2D(rows, cols);
cols.do{|x| rows.do{|y| envir.put(x, y, 0)}};
/*-- select preset here --*/
//preset= #[[0, 0], [1, 0], [0, 1], [1, 1]]+(cols/2); //block
//preset= #[[0, 0], [1, 0], [2, 0]]+(cols/2); //blinker
//preset= #[[0, 0], [1, 0], [2, 0], [1, 1], [2, 1], [3, 1]]+(cols/2); //toad
//preset= #[[1, 0], [0, 1], [0, 2], [1, 2], [2, 2]]+(cols/2); //glider
//preset= #[[0, 0], [1, 0], [2, 0], [3, 0], [0, 1], [4, 1], [0, 2], [1, 3], [4, 3]]+(cols/2); //lwss
//preset= #[[1, 0], [5, 0], [6, 0], [7, 0], [0, 1], [1, 1], [6, 2]]+(cols/2); //diehard
//preset= #[[0, 0], [1, 0], [4, 0], [5, 0], [6, 0], [3, 1], [1, 2]]+(cols/2); //acorn
preset= #[[12, 0], [13, 0], [11, 1], [15, 1], [10, 2], [16, 2], [24, 2], [0, 3], [1, 3], [10, 3], [14, 3], [16, 3], [17, 3], [22, 3], [24, 3], [0, 4], [1, 4], [10, 4], [16, 4], [20, 4], [21, 4], [11, 5], [15, 5], [20, 5], [21, 5], [34, 5], [35, 5], [12, 6], [13, 6], [20, 6], [21, 6], [34, 6], [35, 6], [22, 7], [24, 7], [24, 8]]+(cols/4); //gosper glider gun
//preset= #[[0, 0], [2, 0], [2, 1], [4, 2], [4, 3], [6, 3], [4, 4], [6, 4], [7, 4], [6, 5]]+(cols/2); //infinite1
//preset= #[[0, 0], [2, 0], [4, 0], [1, 1], [2, 1], [4, 1], [3, 2], [4, 2], [0, 3], [0, 4], [1, 4], [2, 4], [4, 4]]+(cols/2); //infinite2
//preset= #[[0, 0], [1, 0], [2, 0], [3, 0], [4, 0], [5, 0], [6, 0], [7, 0], [9, 0], [10, 0], [11, 0], [12, 0], [13, 0], [17, 0], [18, 0], [19, 0], [26, 0], [27, 0], [28, 0], [29, 0], [30, 0], [31, 0], [32, 0], [34, 0], [35, 0], [36, 0], [37, 0], [38, 0]]+(cols/4); //infinite3
//preset= Array.fill(cols*rows, {[cols.rand, rows.rand]});
preset.do{|point| envir.put(point[0], point[1], 1)};
i= 0;
u.drawFunc= {
i= i+1;
Pen.fillColor= Color.black;
cols.do{|x|
rows.do{|y|
if(envir.at(x, y)==1, {
Pen.addRect(Rect(x*cellWidth, height-(y*cellHeight), cellWidth, cellHeight));
});
};
};
Pen.fill;
cols.do{|x|
rows.do{|y|
var sum= 0;
neighbours.do{|point|
var nX= x+point[0];
var nY= y+point[1];
if(wrap, {
sum= sum+envir.at(nX%cols, nY%rows); //no borders
}, {
if((nX>=0)&&(nY>=0)&&(nX<cols)&&(nY<rows), {sum= sum+envir.at(nX, nY)}); //borders
});
};
if(rule[1].includes(sum), { //borne
copy.put(x, y, 1);
}, {
if(rule[0].includes(sum), { //lives on
copy.put(x, y, envir.at(x, y));
}, { //dies
copy.put(x, y, 0);
});
});
};
};
envir= copy.deepCopy;
};
Routine({while{w.isClosed.not} {u.refresh; i.postln; (1/20).wait}}).play(AppClock);
w.front;
)
Updates:
- 171228: converted rtf to scd and added help file
- 210525: much improved versions attached using Image to draw
Attachments: | |
---|---|
Pca1.zip | |
ca1++.scd | |
ca2-gameoflife++.scd |