Re: ListAnimate or movie with No AppearanceElements
- To: mathgroup at smc.vnet.net
- Subject: [mg89455] Re: ListAnimate or movie with No AppearanceElements
- From: Albert Retey <awnl at arcor.net>
- Date: Tue, 10 Jun 2008 03:39:23 -0400 (EDT)
- References: <g2fuc1$2gl$1@smc.vnet.net>
Hi,
> I wish to show a movie/animation in a notebook, but I do not want any
> of the Mathematica 6 additions showing up. What I want is just a plain
> flip through the frames without a panel, slider, etc. etc.
>
> As a self-contained example:
>
> table = Table[ Plot[ x^n, {x, -5, 5}], {n, 1, 5, 1}];
> Export[$HomeDirectory <>"/table.avi", table];
> movie=Import[$HomeDirectory <> "//table.avi", {"AVI", "Animation"}]
>
> I have tried playing with AppearanceElements, Panel, Dynamic, etc. but
> no luck. The best I was able to do was to get the slider to disappear,
> but it left behind a grey frame.
>
> Does someone have a solution to this seemingly simple problem?
I think the trick is to not import the Animation but only the list of
Graphics-objects, which can be done with:
frames=Import[
ToFileName[{$HomeDirectory, "Desktop"}, "table.avi"], {"AVI",
"GraphicsList"}
]
then you can make better use of the various functions and mechanism that
are available. The first thing that comes to mind is something like
ListAnimation[frames]
using AnimatorElements->None, but this still has a panel and take ages
on my computer to finish. So I came up with this minimal low level
animate which you can use as a starting point to build a solution of
your taste:
Print[FlipView[movie, Dynamic[i]]];
Do[i = Mod[k, 5] + 1; Pause[0.25], {k, 1, 5*Length[movie]}]
This seems to be quite fast, at least on my machine and changing the
last line gives you possibilities to control the details of animation
speed, repetitions etc.
hth,
albert