onePicture[t_] := ListPlot[{{Cos[t], Sin[2 t]}}, PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}}, AspectRatio -> 1, PlotStyle -> PointSize[0.05] ]
frames = ParallelTable[ onePicture[t], {t, 0, 2 Pi, 2 Pi/100} ]なお,Mathematica help によれば, 『ParallelTableは並列である点を除いてTableと同じように働く』 とのこと.
ListAnimate[frames]
Export["sample.gif", frames]