\documentclass{article}
\usepackage{pst-geo,multido}
\usepackage{animate}
\pagestyle{empty}
\begin{document}
\begin{animateinline}[controls,autoplay,palindrome,
begin={\psset{path=../data}\begin{pspicture}(-7,-7)(7,7)},
end={\end{pspicture}}]{8}
% % Generate frames for -2 ... 2
\multiframe{18}{iRotZ=0+-20}{%
\psset{Radius=5,RotX=-23,RotZ=\iRotZ,PHI=46.5833,THETA=0.3333}
\WorldMapThreeD[all,borders,rivers,circles=false,all,blueEarth=false,visibility=false]%
\WorldMapThreeD[all,borders,rivers,circles=false,all,opacity=0.7]%
\psmeridien{0.333}\psparallel{46.5833}
}
\end{animateinline}
\bigskip
\begin{verbatim}
\begin{animateinline}[controls,autoplay,palindrome,
begin={\psset{path=../data}\begin{pspicture}(-7,-7)(7,7)},
end={\end{pspicture}}]{8}
% % Generate frames for -2 ... 2
\multiframe{18}{iRotZ=0+-20}{%
\psset{Radius=5,RotX=-23,RotZ=\iRotZ,PHI=46.5833,THETA=0.3333}
\WorldMapThreeD[all,borders,rivers,circles=false,all,blueEarth=false,visibility=false]%
\WorldMapThreeD[all,borders,rivers,circles=false,all,opacity=0.7]%
\psmeridien{0.333}\psparallel{46.5833}
}
\end{animateinline}
\end{verbatim}
\end{document}