Awesome rule number - this is how approximately big it is:
N[%, 2]
I understood that the color selection was the essential part of the work. But here for the pure sake of experiment the same rule in some default color schemes (if your rule is defined as RULE
):
ArrayPlot[
CellularAutomaton[{RULE, 14}, {7, 6, 12, 7, 4, 7, 4, 10, 0, 7, 4,
5, 5, 8, 6, 11, 7, 7, 3, 8, 13, 8, 5, 6, 5, 11, 13, 8, 9, 10,
2, 13, 10, 6, 0, 6, 10, 2, 7, 8, 8, 0, 9, 3, 0, 11, 4, 5, 13,
1, 8, 12, 6, 4, 1, 1, 10, 9, 4, 6, 0, 3, 5, 5, 13, 5, 9, 8, 12,
13, 13, 11, 12, 13, 4, 5, 7, 9, 11, 13, 4, 3, 6, 5, 7, 10, 10,
0, 13, 0, 11, 12, 11, 1, 3, 3, 1, 6, 12, 9, 9, 0, 3, 13, 2, 3,
8, 13, 4, 12, 2, 6, 1, 6, 2, 3, 2, 7, 13, 12, 7, 7, 2, 8, 4,
2, 0, 0, 2, 12, 0, 4, 3, 6, 5, 9, 6, 12}, 264],
ColorFunction -> #, PixelConstrained -> 1] & /@
ColorData["Gradients"] // Partition[#, 5] & //
Grid[#, Spacings -> {0, 0}] &