Transmit

Probably I'll eventually get sick of this style (previously: [1], [2], [3], [4]), but in the mean time I'm having fun.

Here's the source code:

Manipulate[
 Graphics[{FaceForm[None], 
   EdgeForm[Directive[RGBColor["#00FFF5"], Thickness[.005]]], 
   Table[Module[{?, xpos, ypos},
     {xpos, ypos} = {Sqrt[3] x + ((-1)^y - 1) Sqrt[3]/4 + Sqrt[3]/2 i, 3/2 y + 1/2 i};
     ? = ?/3 (Haversine[Mod[#, ?]] + Floor[#/?]) &[t -  ?/ Sqrt[417] Norm[{xpos, ypos}]];
     Polygon[
      Table[{Cos[? + ?], Sin[? + ?]} + {xpos, ypos}, 
         {?, ?/6, 11 ?/6, ?/3}]]], 
     {x, -9, 8}, {y, -10, 10}, {i, 0, 1}]}, 
   ImageSize -> 540, PlotRange -> 15,
   Background -> RGBColor["#222831"]], {t, 0, ?}]