Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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/


  • Prev by Date: Re: simple timing question
  • Next by Date: Re: Performance comparison Mac OSX vs. Windows XP
  • Previous by thread: How Mathematica saved me about $40 in 5 minutes. Using it to create animated gif file.
  • Next by thread: Re: why does FindMinimum have the attribute HoldAll?