Open Form Architecture Blog

to­tal­ru­les = 3¹⁵ — 1
14348906

fa­vo­ri­te­rule = 5448110;

Array­Plot[
CellularAutomaton[{favoriterule, {3, {3, 1, 3}}}, {{1},
0}, {{0, 2000}, {-2000, 2000}}], Pi­xel­Cons­trai­ned -> 1,
Co­lo­rRu­les -> {0 -> Ye­llow, 1 -> Red, 2 -> Gray}]

Array­Plot[
CellularAutomaton[{favoriterule, {3, {3, 1, 3}}}, {{1},
0}, {{2000, 4000}, {-2000, 2000}}], Pi­xel­Cons­trai­ned -> 1,
Co­lo­rRu­les -> {0 -> Ye­llow, 1 -> Red, 2 -> Gray}]

Array­Plot[
CellularAutomaton[{favoriterule, {3, {3, 1, 3}}}, {{1},
0}, {{4000, 6000}, {-2000, 2000}}],
Co­lo­rRu­les -> {0 -> Ye­llow, 1 -> Red, 2 -> Gray}]