I would like to display a sequence of images as a movie within mathematica. I am aware of ListAnimate, but I do not want the various controls included, and there seems to be no way to remove them.
2 Answers
For variety, one can do this with ControllerManipulate
imgs = Plot[Sin[x + #], {x, 0, 2 Pi}] & /@ Range[0, 2 Pi, Pi/10];
ControllerManipulate[
Show[imgs[[(Pause[0.05]; 1 + Mod[x++, Length@imgs - 0])]]], {x, 0, 1}]
I haven't carefully looked over the makeAnimation
that is suggested in the comments but it looks like it might be even be more advanced than what you need, it certainly is more advanced that what I had written so here goes a basic version that might help you:
animation[frames_, delay_] := Module[{fr = frames},
Dynamic[
Refresh[First[fr = RotateRight@fr], UpdateInterval -> delay],
TrackedSymbols -> {}
]
]
Example usage:
frames = Table[Graphics[{ColorData["Rainbow"]@RandomReal[], Rectangle[]}], {10}];
animation[frames, 0.5]
The second argument says that it should switch frame every 0.5 seconds.
makeAnimation
$\endgroup$