You can make the list of frames
Table[CubeTrail[4, 8, 3.8, .75, n], {n,1,80}]
and then export it to a video.
Need more help: can you explain me please, why you exchanged 't' in this example with 'n'? Why the 'n', what does n in that code?
At the moment I try do to the same with this one here
WfPlot[s_, w_, t_] :=
Graphics[Table[{AbsoluteThickness[2],
Line[Table[{i +
If[Mod[i, 2] == 0, s*Sin[j*2 Pi/w + i*2 Pi/6 + t],
0], (-1)^i*.5 + .4*j}, {i, -2, 15}]]}, {j, 1, 69, 1}],
PlotRange -> {{1, 20}, {.8, 27.2}}, ImageSize -> {1000, 1000},
Background -> RGBColor[54/255, 70/255, 93/255]];
LogPolar[x_, y_] := {Log[Sqrt[x^2 + y^2]], ArcTan[x, y]};
p := {{66, .2}, {6, .3}, {11, .4}}
Manipulate[
ImageResize[
ImageTransformation[WfPlot[p[[k, 1]], p[[k, 2]], t],
LogPolar[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}],
700], {k, 1, 3, 1}, {t, 0, 2 Pi}]
but do not really understand why you exchanged the var 't' with 'n' in the other example...beside that, this one here has 2 variables, k and t - how can I give 'k' a constant value (maybe 2), and do a 'table-export' like in the first example?
