intothecontinuum:

Mathematica code:

v1 := {1 + Cos[Pi/3], Sin[Pi/3]}
v2 := {0, 2 Sin[Pi/3]}

Animate[
  Graphics[
     Table[Rotate[Table[{PointSize[.025],
        Point[
          Table[
           {Cos[n*2*Pi/6], Sin[n*2*Pi/6]} + m1*v1 + m2*v2,
          {n, 0, 5}]]},
     {m1, -15, 15}, {m2, -15, 15}], t*o], {o, 0, 1, 1}],
  PlotRange -> 15, ImageSize -> 500],
{t, 0, Pi/3, Pi/60}]

(via proofmathisbeautiful)