U:=Animate[
  Manipulate[
    ParametricPlot3D[{{-3+(Sin[v+a])u,u(Cos[v+a]),v},
                  {-3+(Sin[v+Pi+a])u,u(Cos[v+Pi+a]),v},
                  {3+(Sin[v+a])u,u(Cos[v+a]),v},
                  {3+(Sin[v+Pi+a])u,u(Cos[v+Pi+a]),v},
                  {-3+.6(v),u(Cos[.6v+a]),5+(Sin[.6v+a])u},
                  {-3+.6(v),u(Cos[.6v+a+Pi]),5+(Sin[.6v+a+Pi])u}},
    {u,0,1},{v,0,10}, PlotStyle->{Red,Green,Red,Green},Mesh->False,
    Boxed->False,Axes->False, PlotRange->{{-4,4},{-4,4},{0,10}}], 
  Button["What is this?",Speak["The Harvard Christmas Helix H"]]],
{a,-Pi,Pi}];

$DisplayFunction=Identity;
S[a_]:=ParametricPlot3D[{{-3+(Sin[v+a])u,u(Cos[v+a]),v},
                  {-3+(Sin[v+Pi+a])u,u(Cos[v+Pi+a]),v},
                  {3+(Sin[v+a])u,u(Cos[v+a]),v},
                  {3+(Sin[v+Pi+a])u,u(Cos[v+Pi+a]),v},
                  {-3+.6(v),u(Cos[.6v+a]),5+(Sin[.6v+a])u},
                  {-3+.6(v),u(Cos[.6v+a+Pi]),5+(Sin[.6v+a+Pi])u}},
    {u,0,1},{v,0,10}, PlotStyle->{Red,Green,Red,Green},Mesh->False,
    Boxed->False,Axes->False, PlotRange->{{-4,4},{-4,4},{0,10}},ImageSize->800];

G[n_]:=Block[{u,v,w}, u=IntegerDigits[n]+48; v=ToCharacterCode[""];
  w=ToCharacterCode[".png"]; FromCharacterCode[Join[v,u,w]]];

M=200; Do[Export[G[1000+k],S[2*Pi*k/M],"PNG"],{k,0,M}]