Pretty Hexagons

randomhexagon[] := {Opacity[0.05 + 0.5 RandomReal[]],
   ColorData["DarkBands"][RandomReal[]],
   Polygon[RandomChoice[
      Range[1, 4]] Table[{Sin[\[Theta]], Cos[\[Theta]]}, {\[Theta], 0,
        2 Pi, 2 Pi/6}]]};
Graphics[
 Table[
  Translate[randomhexagon[], {Sqrt[3] (x + Mod[y, 2]/2), y 1.5}],
  {x, 21}, {y, 13}]
 , ImageSize -> 800, PlotRange -> {Sqrt[3] {1, 21}, 1.5 {1, 13}}]