Still need help, I don't get it to work as expected:
vertices =
ParallelTable[
Table[RotationTransform[a, {1, 1, 0}, {0, 0, 0}][
Tuples[{-1, 1}, 3][[v]]], {v, 1, 8, 1}], {a, 0, 2 Pi, Pi/80}];
Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}
CubeTrail[N_, s_, r_, z_, t_] :=
Graphics[Table[
Scale[Translate[{AbsoluteThickness[1.5], Opacity[1], White,
Line[Table[{vertices[[1 + Mod[t, 80]]][[Edge[[e]]]][[1]],
vertices[[1 + Mod[t, 80]]][[Edge[[e]]]][[2]]}, {e, 1, 16,
1}]]}, r*{Cos[2 Pi*(n*t/80 + k)/N],
Sin[2 Pi*(n*t/80 + k)/N]}], z^n,
r*{Cos[2 Pi*(n*t/80 + k)/N], Sin[2 Pi*(n*t/80 + k)/N]}], {k, 1, N,
1}, {n, 1, s, 1}], PlotRange -> 5, ImageSize -> {1280, 720},
Background -> RGBColor[54/255, 70/255, 93/255]]
Export[NotebookDirectory[] <> "movie.avi",
ParallelTable[CubeTrail[4, 8, 3.8, .75, n], {n, 1, 80}],
"FrameRate" -> 900, "VideoEncoding" -> Uncompressed]
Above is 'my' example, 900 frames - when I import that .avi in Magix Video, it has a max length of 3,08 seconds. More is not possible, whatever I do.
900 frames /25 fps=36.
Whats wrong there?
How to play that animation slower, it is too fast. Isn't there any way to set speed at export in mathematica directly?
If I do
Table[CubeTrail[4, 8, 3.8, .75, n], {n, 1, 160}]
and 600 fps, max length is 6,11...strange.
Any ideas what I do wrong or how to solve?
