Moiré Mosaic

Colored via the function $(x,y)\mapsto \sqrt[3]{x^2+y^2}$.

Reference for the moiré phenomenon https://mathematica.stackexchange.com/a/181933/79389.

Source code:

n = 36; indexes =
 Select[Flatten[Table[{i, j}, {i, -n, n}, {j, -n, n}], 1],
  Apply[-n <= #1 + #2 <= n \[And] -n <= #1 - #2 <= n &]]; coords =
 Map[Apply[ReIm[(E^(-I \[Pi]/6) #1 + E^(I \[Pi]/6) #2)/3] &],
  indexes]; list =
 Map[{#[[1]], #[[2]], CubeRoot[Sin[#[[1]]^2 + #[[2]]^2]]} &,
  coords]; ListDensityPlot[list, ColorFunction -> GrayLevel,
 AspectRatio -> Automatic, Frame -> False, InterpolationOrder -> 0]

• mathematica
• monochrome