Version6でのアニメーション

version6ではアニメ関係が大きく変わった。これまでのようにShow[Graphics[]]で絵を並べておくだけではだめである。

最初にパッケージを読み込んでおく。ShowAnimationが使えるようになる。

Needs["Graphics`Animation`"]

gifsにGraphicsを蓄えるようにする。gifsというリスト変数に一枚絵のgifを次々とAppendTo[ ]を使って加えている。

gifs={}; (* gifsを初期化 *)
Do[
gif=Graphics[{Circle[{0,0},1],Disk[{Cos[t],Sin[t]},0.05]},PlotRange->{{-1.2,1.2},{-1.2,1.2}}];
AppendTo[gifs,gif],{t,0,2Pi,Pi/20}
]

ShowAnimationでアニメを楽しむことができる。

Needs["Graphics`Animation`"]
ShowAnimation[gifs]

ファイルをgif animeとして出力している。GIF89なので、PowerPointにそのままはりつけることができる。

Directory[]

Directory[]コマンドで確認すると、出力先を調べることができる。場合によっては、出力先を変えた方がいいかもしれない。

SetDirectory["c:\\"]

Export["test.gif",gifs]