Wolfram Cloud Document

In[]:=

framesLA=MapIndexedColumnStyle[ToUpperCase@"Ancient Earth continental plates motion ",33,Opacity[.7],FontFamily->"DIN Condensed"],Style[#[[2]],33,Opacity[.7],FontFamily->"Copperplate"],Style["Million Years Ago",21,Opacity[.7],FontFamily->"Copperplate"],GeoGraphics"World",GeoBackground->GeoStyling[{"GeoImage",#[[1]]}],GeoProjection->"LambertAzimuthal","Centering"GeoPosition-90+90

#2[[1]]

109.

,0,GeoGridLines->Automatic,ImageSize->550{1,1},Alignment->Center,Spacings->1&,ris//Parallelize;

Export["mya8.gif",framesLA,"DisplayDurations"->Append[Table[.07,108],2],ImageSize->650]