Wiphala flag from the Andes.
Mathematica code to generate image:

square[color_, row_, column_] := {color, Rectangle[{column, -row}]}
colorList = {RGBColor[1, 1, 1], RGBColor[1, 1, 0], RGBColor[16/17, 7/15, 0], RGBColor[1, 0, 0], RGBColor[16/17, 0, 16/17], RGBColor[0, 0, 1], RGBColor[0, 0.5, 0]};
nthColor[n_] := colorList[[n + 1]];
Graphics[Table[{nthColor[Mod[column - row, 7]], Rectangle[{column, -row}]}, {row, 0, 6}, {column, 0, 6}]]
Own work based on: Wipala.jpg
CalendulaAsteraceae