1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
\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}
|