Inspired by Bridget Riley - Descending (1965)

Mathematica code:

WPlot[x_, y_, h_, k_, N_, R_, m_, s_, w_, v_, t_, px_, py_] :=
 Graphics[
  Table[
   {AbsoluteThickness[k], 
    Line[Table[{x*i + 
         If[Mod[i, 2] == m, s*x*Sin[j*2 Pi/w + i*2 Pi/v + t], 0],
         (-1)^i*y + h*j}, {i, 1, N}]]},
   {j, 1, R, 1}],
  PlotRange -> {{x + px, N*x - px}, {h - y + py, R*h - y}}, 
  ImageSize -> {500, 700}
  ]

P={1, 0.5, 0.4, 4, 19, 66, 0, 0.5, 0.99, 0.94, 2.12749, 0., 0.644}

Manipulate[
 WPlot[P[[1]], P[[2]], P[[3]], P[[4]], P[[5]], P[[6]], P[[7]], 
          P[[8]],  P[[9]], P[[10]], t, P[[12]], P[[13]]],
{t, 0, 2 Pi}]