6.42 Using Sow and Reap

ListAnimate[Flatten[Reap[Do[Sow@Plot[Sin[x - c], {x, 0, 4 Pi}, 
      Ticks -> None], {c, 0, 2 Pi - Pi/10, Pi/10}]]]]