Re: How Mathematica saved me about $40 in 5 minutes. Using it to create animated gif file.

*To*: mathgroup at smc.vnet.net*Subject*: [mg69953] Re: [mg69934] How Mathematica saved me about $40 in 5 minutes. Using it to create animated gif file.*From*: "Chris Chiasson" <chris at chiasson.name>*Date*: Thu, 28 Sep 2006 06:15:22 -0400 (EDT)*References*: <200609271006.GAA00305@smc.vnet.net>

... and I'd like to point out that Mathematica's animation Export capabilities take up way too much RAM and CPU (and disk space if you're talking about AVI exports) relative to the animation length/complexity OOTH, there is no good substitute for Mathematica's other capabilities - so I take what I can get... On 9/27/06, Nasser Abbasi <nma at 12000.org> wrote: > I had 100 png files called "1.png", "2.png", etc... (each file represent a > frame) that were created from another software. Now I wanted to put these > togother into one animated gif file. > > I looked for some software to do this, and found many on the net. But > nothing really free, many trial versions which do not allow one to save to > disk, etc... I just need to do this once and did not feel I wanted to pay > $30-$50 just to do this. > > Then I remembered that Mathematica can do animation, so I wrote this short > code below to read the image files from disk, and create the animated GIF > file. It worked perfectly, and fast. > > So I just wanted to thank Mathematica for saving me some money tonight :) > p = {}; > > Do[image = Import[StringJoin[ToString[i], ".png"], "PNG"]; > p = Append[p, image], > {i, 3, 100} ]; > > Export[StringJoin["animated", ".gif"], p, ConversionOptions -> > {"AnimationDisplayTime" -> 0.5, "Loop" -> True}]; > > Nasser > > -- http://chris.chiasson.name/

**References**:**How Mathematica saved me about $40 in 5 minutes. Using it to create animated gif file.***From:*"Nasser Abbasi" <nma@12000.org>