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}]
whaaaaaaaaaaa