intothecontinuum:

Mathematica code:

G[t_, h_, o_, s_, P_] :=
 Graphics[{
   {White, Thickness[h], Opacity[o],
    Table[
     Circle[
      {i + t, -1}, s],
     {i, -1, .8, .2}],
    Table[
     Circle[
      {i - t, 1}, s],
     {i, -.8, 1, .2}],
    Table[
     Circle[
      {-1, j - t}, s],
      {j, -.8, 1, .2}],
    Table[
     Circle[
      {1, j + t}, s],
     {j, -1, .8, .2}]
    }
   },
  Background -> Black,
  ImageSize -> 500,
  PlotRange -> P]

ListAnimate[
 Table[
  G[t, .005, 1, 1, 2.1],
 {t , 0 , .18, .02}]]