Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

How to generate animated GIF of a Manipulate? 8.0.1

Exporting to animated gif seems to have changed in Mathematica 8.0.1?

I normally make animated GIFs of a manipulate by simply writing:

v=Manipulate[....]

then Export["foo.gif",v];

But now it does not work. I just get one static image.

Here is an example:

v=Manipulate[
Text[t],
{{t,4,"start"},0,10,1,ControlType->Trigger,AnimationRate->1,AnimationRepetitions->10}
]

Now Export["foo.gif",v] just generate static image, as nothing was running.

But Export["foo.avi",v] works, and it does generate a running avi movie.

Also, there used to be animated GIF options I used before, but now there are not supported:

Export["foo.gif",v,ConversionOptions->{"AnimationDisplayTime"->0.5,"Loop"->True},ImageSize->{500,500}]

Export::convoptobs: ConversionOptions is obsolete. 

When I go to help, I do not see options for GIF there. How does one control animation delay and such?

I thought someone here might have an idea.

thanks --Nasser

like image 716
Nasser Avatar asked May 24 '11 11:05

Nasser


People also ask

How do you create an animated GIF?

Create a GIF With Android If you use Google Photos on Android (or iOS), you can make an animated GIF from a selection of your pictures. Just tap Library, then Utilities and Create New. Choose Animation, select the photos and tap Create.

Can you make a GIF in Photoshop?

Go to File > Export > Save for Web (Legacy)... Select GIF 128 Dithered from the Preset menu. Select 256 from the Colors menu. If you are using the GIF online or want to limit the file size of the animation, change Width and Height fields in the Image Size options.


1 Answers

You can export a Table to an animated GIF.

v = Table[Panel[Text[t]], {t, 0, 10, 1}];
Export["anim.gif", v, "DisplayDurations" -> 0.5]

If you absolutely want the animation to look like a Manipulate, you could do something like so.

v = Table[Manipulate[Text[t], 
    {{t, Mod[k, 10], "start"}, 0, 10, 1, ControlType -> Trigger}],
  {k, 4, 14}];
Export["Manip.gif", v, "DisplayDurations" -> 0.5]
like image 73
Mark McClure Avatar answered Sep 17 '22 15:09

Mark McClure