Animated GIF (700x700)

Mathematica code:

R[n_] := (SeedRandom[n]; RandomReal[])
RE[n_] := (SeedRandom[n]; RandomReal[ExponentialDistribution[4]])

G[Q_, t_] :=
 Graphics[
  Table[
   {PointSize[ .06* (Sqrt[RE[Q*2 i^2] + RE[Q*2 i + 1]^2])],
    Opacity[ .5*Sum[Exp[-(t - (R[Q*i] + j))^2/.1], {j, {-1, 0, 1}}]],
    Point[
       Table[
         RotationTransform[(k + (-1)^(i)*t)*2 Pi/8]
           [{RE[Q*2 i],RE[Q*2 i +1]}],
       {k, 0, 7, 1}]]},
 {i, 1, 200, 1}],
 PlotRange -> If[Q == 25, 1.4, 1.2],  ImageSize -> 700]


Table[
 ListAnimate[
  Table[
   G[Q,t],
  {t, 0, .95, .05}],
 AnimationRunning -> False],
{Q, {25, 35}}]