Сэкономить 40 долларов за 5 минут

Рассказывает Nasser Abbasi:

У меня были 100 png–файлов, с именами 1.png, 2.png, … (каждый файл — отдельный кадр), которые были созданы в другой программе. Нужно было совместить эти файлы вместе, чтобы получился анимированный gif.

Поиск специализированного программного обеспечения дал много результатов, но бесплатных программ среди них не оказалось. Я не чувствовал себя готовым платить 30–50 долларов за программу, которая нужна только на один раз.

Тогда я вспомнил, что «Математика» может работать с анимацией, и написал небольшой код, читающий графические файлы с диска и создающий анимированную картинку. Получилось быстро и эффективно.

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}];

Ну вот, сейчас хочу поблагодарить «Математику» за сэкономленные деньги :)

По материалам новостной группы comp.soft-sys.math.mathematica