intothecontinuum:

Inspired by this

Mathematica code:

Manipulate[
 Graphics[
  Table[
   Table[
    {EdgeForm[{Black, AbsoluteThickness[2.5]}], FaceForm[White],
     Translate[
      Polygon[
       Table[{
         {3.9 Sin[Pi/8 (t + V)]
          + i/8 ((-1)^S*(1 + Abs[3.9 Sin[Pi/8 (t + V)]]) - 3.9 Sin[Pi/8 (t + V)]),
          i/8},
         {-3.9 Sin[Pi/8 (t + V)] 
          + i/8 ((-1)^S*(1 + Abs[3.9 Sin[Pi/8 (t + V)]]) + 3.9 Sin[Pi/8 (t + V)]),
         2 - i/8},
         {(-1)^S* 6 - (-1)^S*i/8, 2 - i/8},
         {(-1)^S*6 - (-1)^S*i/8, i/8}},
        {i, 0, 8, 1}]],
      {0, -2 V}]},
    {S, 0, 1}],
   {V, 0, 7, 1}],
 ImageSize -> 500],
 {t, 0, 16}]