root/trunk/pst-map3d/exemples/solstice_hiver_globe_tellure.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,daynight=false}
\newpsstyle{ShadowGlobe}{fillstyle=solid,fillcolor=black,linecolor=black,opacity=0.8}

\makeatletter

\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}
Le jour du solstice d'hiver, il est alors 12 heures UTC à Paris, au même moment dans d'autres villes :
\begin{center}
\begin{pspicture}(-7,-8)(7,6)
\psframe(-7,-8)(7,6)
\psline(-10;48.85)(8;48.85)
\rput(-10;48.85){\psline(3,0)\psarc{->}(0,0){2}{0}{48.85}\uput[24.4](2;24.4){48.85}}
\psGlobeTellure[hour=12,Day=22,Month=12,Year=2008](2.32,48.85000){Paris}
\end{pspicture}
\hfill
\begin{pspicture}(-7,-8)(7,6)
\psframe(-7,-8)(7,6)
\psline(-10;40.75)(8;40.75)
\rput(-10;40.75){\psline(3,0)\psarc{->}(0,0){2}{0}{40.75}\uput[20.37](2;20.37){40.75}}
\psGlobeTellure[hour=7,Day=22,Month=12,Year=2008](-74.0,40.75){New York}
\end{pspicture}
\end{center}

\begin{center}
\begin{pspicture}(-7,-8)(7,6)
\psframe(-7,-8)(7,6)
\psline(-10;37.78333)(8;37.78333)
\rput(-10;37.78333){\psline(3,0)\psarc{->}(0,0){2}{0}{37.7833}\uput[19](2;19){37.78}}
\psGlobeTellure[hour=4,Day=22,Month=12,Year=2008](-122.416666667,37.7833333333){San Francisco}
\end{pspicture}
\hfill
\begin{pspicture}(-7,-8)(7,6)
\psframe(-7,-8)(7,6)
\psline(-10;10.63)(8;10.63)
\rput(-10;10.63){\psline(3,0)\psarc{->}(0,0){2}{0}{10.63}\uput[5.8](2;10.63){10.63}}
\psGlobeTellure[hour=8,Day=22,Month=12,Year=2008](-61.5,10.63){Port of Spain}
\end{pspicture}
\end{center}

\begin{center}
\begin{pspicture}(-7,-8)(7,6)
\psframe(-7,-8)(7,6)
\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=20,Day=22,Month=12,Year=2008](116.4,39.9333333333){Beijing}
\end{pspicture}
\hfill
\begin{pspicture}(-7,-8)(7,6)
\psframe(-7,-8)(7,6)
\psline(-9;67.82)(8;67.82)
\rput(-9;67.82){\psline(3,0)\psarc{->}(0,0){2}{0}{67.82}\uput[34](1;34){67.82}}
\psGlobeTellure[hour=24,Day=22,Month=12,Year=2008](175.83,67.82){Vankarem}
\end{pspicture}
\end{center}

\end{document}