Hi Jos, here is my part of the animation code:
index = Round@Subdivide[1, Length[gd], 20];
gifImgs =
Table[Graphics[{Thickness[.0003], gd[[;; n]], Thickness[.001], Red,
gd[[n]]}, ImageSize -> 600, Frame -> False,
PlotRange -> {{-170, 170}, {-220, 220}}], {n, index}];
AppendTo[gifImgs,
Graphics[{Thickness[.0003], gd}, ImageSize -> 600, Frame -> False,
PlotRange -> {{-170, 170}, {-220, 220}}]];
SetDirectory[NotebookDirectory[]]
Export["ImageOfLines0.gif", gifImgs, "DisplayDurations" -> 0.5]
Admittedly I did the fine tuning (i.e. the adjustment of the display duration at the beginning and at the end) with gimp.
