pizzzatime: intothecontinuum: Mathematica code: P[A_, f_, w_, h_, M_, Y_, t_] := Plot[ Table[ A*Sin[f*x + t + n*2 Pi/w] + h*n, {n, 1, M, 1}], {x, 0, 4 Pi}, PlotStyle -> Directive[Black, AbsoluteThickness[3]], PlotRange -> {{0, 4 Pi}, {-.3, Y}}, Axes -> False, AspectRatio -> 5/7, ImageSize -> {700, 500}]Manipulate[ ImageRotate[ P[.35, 1, 28, .6, 57, 35, t], -Pi/2], {t, 2 Pi, Pi/10, -Pi/10}]
View Separately

pizzzatime:

intothecontinuum: Mathematica code:

P[A_, f_, w_, h_, M_, Y_, t_] :=
 Plot[
  Table[
   A*Sin[f*x + t + n*2 Pi/w] + h*n,
   {n, 1, M, 1}],
 {x, 0, 4 Pi}, 
  PlotStyle -> Directive[Black, AbsoluteThickness[3]], 
  PlotRange -> {{0, 4 Pi}, {-.3, Y}}, Axes -> False,
  AspectRatio -> 5/7, ImageSize -> {700, 500}]

Manipulate[
 ImageRotate[
  P[.35, 1, 28, .6, 57, 35, t],
  -Pi/2],
 {t, 2 Pi, Pi/10, -Pi/10}]

(via bloodpearl)

Source: intothecontinuum