Mathematica code:
v1 := {1 + Cos[Pi/3], Sin[Pi/3]}
v2 := {0, 2 Sin[Pi/3]}
Animate[
Graphics[
Table[Rotate[Table[{PointSize[.032],
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/10, Pi/120}]Mathematica code:...v1 := {1 + Cos[Pi/3], Sin[Pi/3]} v2 := {0, 2 Sin[Pi/3]} Animate[...