English: (* I Ching King Wen Sequence,
encoded from Wikipedia figure:
https://en.wikipedia.org/wiki/King_Wen_sequence#Dual_hexagrams
Arbitrarily designate solid line as 1, and broken line as 0,
reading hexagrams from left to right
for numbers on the left, and
from right to left for numbers
on the right. Alternative choices
will lead to a color swap or a
reflection of the plot mirrored
over a central vertical line.
*)
x[1] = Template:1, 1, 1, 1, 1, 1;
x[2] = {0, 0, 0, 0, 0, 0};
x[3] = {1, 0, 0, 0, 1, 0};
x[4] = {0, 1, 0, 0, 0, 1};
x[5] = {1, 1, 1, 0, 1, 0};
x[6] = {0, 1, 0, 1, 1, 1};
x[7] = {0, 1, 0, 0, 0, 0};
x[8] = {0, 0, 0, 0, 1, 0};
x[9] = {1, 1, 1, 0, 1, 1};
x[10] = {1, 1, 0, 1, 1, 1};
x[11] = {1, 1, 1, 0, 0, 0};
x[12] = {0, 0, 0, 1, 1, 1};
x[13] = {1, 0, 1, 1, 1, 1};
x[14] = {1, 1, 1, 1, 0, 1};
x[15] = {0, 0, 1, 0, 0, 0};
x[16] = {0, 0, 0, 1, 0, 0};
x[17] = {1, 0, 0, 1, 1, 0};
x[18] = {0, 1, 1, 0, 0, 1};
x[19] = {1, 1, 0, 0, 0, 0};
x[20] = {0, 0, 0, 0, 1, 1};
x[21] = {1, 0, 0, 1, 0, 1};
x[22] = {1, 0, 1, 0, 0, 1};
x[23] = {0, 0, 0, 0, 0, 1};
x[24] = {1, 0, 0, 0, 0, 0};
x[25] = {1, 0, 0, 1, 1, 1};
x[26] = {1, 1, 1, 0, 0, 1};
x[27] = {1, 0, 0, 0, 0, 1};
x[28] = {0, 1, 1, 1, 1, 0};
x[29] = {0, 1, 0, 0, 1, 0};
x[30] = {1, 0, 1, 1, 0, 1};
x[31] = {0, 0, 1, 1, 1, 0};
x[32] = {0, 1, 1, 1, 0, 0};
x[33] = {0, 0, 1, 1, 1, 1};
x[34] = {1, 1, 1, 1, 0, 0};
x[35] = {0, 0, 0, 1, 0, 1};
x[36] = {1, 0, 1, 0, 0, 0};
x[37] = {1, 0, 1, 0, 1, 1};
x[38] = {1, 1, 0, 1, 0, 1};
x[39] = {0, 0, 1, 0, 1, 0};
x[40] = {0, 1, 0, 1, 0, 0};
x[41] = {1, 1, 0, 0, 0, 1};
x[42] = {1, 0, 0, 0, 1, 1};
x[43] = {1, 1, 1, 1, 1, 0};
x[44] = {0, 1, 1, 1, 1, 1};
x[45] = {0, 0, 0, 1, 1, 0};
x[46] = {0, 1, 1, 0, 0, 0};
x[47] = {0, 1, 0, 1, 1, 0};
x[48] = {0, 1, 1, 0, 1, 0};
x[49] = {1, 0, 1, 1, 1, 0};
x[50] = {0, 1, 1, 1, 0, 1};
x[51] = {1, 0, 0, 1, 0, 0};
x[52] = {0, 0, 1, 0, 0, 1};
x[53] = {0, 0, 1, 0, 1, 1};
x[54] = {1, 1, 0, 1, 0, 0};
x[55] = {1, 0, 1, 1, 0, 0};
x[56] = {0, 0, 1, 1, 0, 1};
x[57] = {0, 1, 1, 0, 1, 1};
x[58] = {1, 1, 0, 1, 1, 0};
x[59] = {0, 1, 0, 0, 1, 1};
x[60] = {1, 1, 0, 0, 1, 0};
x[61] = {1, 1, 0, 0, 1, 1};
x[62] = {0, 0, 1, 1, 0, 0};
x[63] = {1, 0, 1, 0, 1, 0};
x[64] = {0, 1, 0, 1, 0, 1};
xx = x[1];
For[i = 2, i <= 64, i++, AppendTo[xx, x[i]]]
ArrayPlot[xx, ColorRules -> {1 -> Red, 0 -> Blue},
PlotTheme -> "Detailed", ImageSize -> 100]