PstMap3d: solstice_ete_globe_tellure_Syracuse.tex

\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
\usepackage[a4paper,margin=2cm]{geometry}
\usepackage{pstricks-add,pst-map3d}
\pagestyle{empty}
\definecolor{BlueDark}{cmyk}{1,1,0,0.5}
\newpsstyle{Globe}{circles=true,gridmap=true,ombre=false}
\newpsstyle{ShadowGlobe}{fillstyle=solid,fillcolor=BlueDark,linecolor=BlueDark,opacity=0.8}
\makeatletter
\def\psGlobeTellure{\pst@object{psGlobeTellure}}
\def\psGlobeTellure@i(#1,#2)#3{% longitude, latitude et nom de la ville
   \pst@killglue
   \begingroup
   \begin@SpecialObj%
    \pnode(!/ux 0 def /uy 90 #2 sub sin def /uz 90 #2 sub cos def 0 0){ttt}%
    \psset{PHI=0,THETA=0}%
    {\psset{RotX=#2 90 sub,RotZ=90 #1 add}
    \WorldMapThreeD[style=Globe,ombre=false]%
    \mapputIIID(#1,#2){#3}}%
   \WorldMapThreeD[style=ShadowGlobe,ombre=true,circles=false,blueEarth=false,
                         borders=false,islands=false,
                         rivers=false,lakes=false,
                         gridmap=false,latitudeParallel=#2]%
   \psframe*(-3,-6.5)(3,-5.5)
   \rput(! 0 \psk@TroisD@Radius\space neg -1 add){\white\psk@WorldMap@hour h le \psk@WorldMap@J/\psk@WorldMap@M/\psk@WorldMap@A}
   \end@SpecialObj%
   \endgroup%
   \ignorespaces}%

\newdimen\pssizeStar
\def\psset@sizeStar#1{\pssetlength\pssizeStar{#1}}
\psset@sizeStar{1.5pt}

%% adapté de \psRandom du package pstricks-add
%% pour rendre aléatoire la taille des étoiles
\def\psRandomStar{\pst@object{psRandomStar}}%
\def\psRandomStar@i{\@ifnextchar({\psRandomStar@ii}{\psRandomStar@iii(0,0)(1,1)}}
\def\psRandomStar@ii(#1){\@ifnextchar({\psRandomStar@iii(#1)}{\psRandomStar@iii(0,0)(#1)}}
\def\psRandomStar@iii(#1)(#2)#3{%
  \def\pst@tempA{#3}%
  \ifx\pst@tempA\pst@empty\psclip{\psframe(#2)}\else\psclip{#3}\fi
  \pst@getcoor{#1}\pst@tempA
  \pst@getcoor{#2}\pst@tempB
  \begin@SpecialObj
  \addto@pscode{
    \pst@tempA\space /yMin exch def
    /xMin exch def
    \pst@tempB\space /yMax exch def
    /xMax exch def
    /dy yMax yMin sub def
    /dx xMax xMin sub def
    rrand srand                 % initializes the random generator
    /getRandReal { rand 2147483647 div } def
     \psk@randomPoints {
    /DS \pst@number\pssizeStar\space getRandReal mul def
    \@nameuse{psds@\psk@dotstyle}
     \ifPst@color getRandReal 1 1 sethsbcolor \fi
     getRandReal dx mul xMin add
     getRandReal dy mul yMin add
     Dot
     \ifx\psk@fillstyle\psfs@solid fill \fi stroke
    } repeat
  }%
  \end@SpecialObj
  \endpsclip
  \ignorespaces
}
\makeatother
\begin{document}
\psset{Radius=5,Decran=100,Dobs=100,unit=0.5}
\begin{center}
\multido{\i=0+2,\ih=1+2}{12}{%
\begin{pspicture}(-7,-7)(7,7)
\psframe*[linecolor=BlueDark](-7,-7)(7,7)%
\psRandomStar[linecolor=yellow!50,randomPoints=100](-7,-7)(7,7){\psframe(-7,-7)(7,7)}
%\psline(-9;39.93)(8;39.93)
%\rput(-9;39.93){\psline(3,0)\psarc{->}(0,0){2}{0}{39.93}\uput[20](2;20){39.93}}
\psGlobeTellure[hour=\i,Day=22,Month=06,Year=2008](15.28,37.07){Syracuse}
\end{pspicture}
\hfill
\begin{pspicture}(-7,-7)(7,7)
\psframe*[linecolor=BlueDark](-7,-7)(7,7)%
\psRandomStar[linecolor=yellow!50,randomPoints=100](-7,-7)(7,7){\psframe(-7,-7)(7,7)}
%\psline(-9;39.93)(8;39.93)
%\rput(-9;39.93){\psline(3,0)\psarc{->}(0,0){2}{0}{39.93}\uput[20](2;20){39.93}}
\psGlobeTellure[hour=\ih,Day=22,Month=06,Year=2008](15.28,37.07){Syracuse}
\end{pspicture}
\newline}
\end{center}
\end{document}