Как создать анимированный GIF манипулятора?8.0.1 - PullRequest
Новая
       5

Как создать анимированный GIF манипулятора?8.0.1

16 голосов
/ 24 мая 2011

Экспорт в анимированный GIF, похоже, изменился в Mathematica 8.0.1?

Обычно я делаю анимированные GIF-изображения манипуляции, просто написав: 

v=Manipulate[....]

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

Но теперь это не работает. Я только что получил одно статическое изображение.

Вот пример: 

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

Теперь Export["foo.gif",v] просто создайте статическое изображение, так как ничего не было запущено.

Но Export["foo.avi",v] работает и генерирует работающий фильм AVI.

Также раньше были анимированные опции GIF, которые я использовал раньше, но теперь они не поддерживаются: 

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

Export::convoptobs: ConversionOptions is obsolete.

Когда я иду, чтобы помочь, я не вижу вариантов для GIF там. Как контролировать задержку анимации и тому подобное?

Я думал, что у кого-то здесь может быть идея.

спасибо --Nasser

Ответы [ 2 ]

22 голосов
/ 24 мая 2011

Вы можете экспортировать Table в анимированный GIF. 

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

Если вы абсолютно хотите, чтобы анимация выглядела как Manipulate, вы можете сделать что-то подобное. 

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]
3 голосов
/ 24 мая 2011

Вы можете использовать v = Animate[ Text[t], {{t, 4, "start"}, 0, 10, 1, ControlType -> Trigger, AnimationRate -> 1, AnimationRepetitions -> 10}]

...