root/trunk/pst-map3d/exemples/test_globe_tellure1.tex

\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
\usepackage[a4paper,margin=2cm]{geometry}
\usepackage{pst-map3d}
\pagestyle{empty}
\newpsstyle{Globe}{circles=true,canada=true}
\newpsstyle{night}{fillstyle=solid,fillcolor=black,linecolor=black}

\begin{document}

\psset{Radius=5,Decran=100,Dobs=100,unit=0.5}
\begin{center}
\begin{pspicture}(-8,-8)(8,7))
\psframe*(-8,-8)(8,7)
\psline[linecolor=white](-10;48.85)(10;48.85)
\rput(-10;48.85){\psline[linecolor=white](3,0)\psarc[linecolor=white]{->}(0,0){2}{0}{48.85}\uput[24.4](2;24.4){\white48.85}}
\psGlobeTellure[hour=2](2.32,48.85000){Paris}
\end{pspicture}
\hfill
\begin{pspicture}(-8,-8)(8,7)
\psframe*(-8,-8)(8,7)
\psline[linecolor=white](-10;40.75)(10;40.75)
\rput(-10;40.75){\psline[linecolor=white](3,0)\psarc[linecolor=white]{->}(0,0){2}{0}{40.75}\uput[20.37](2;20.37){\white40.75}}
\psGlobeTellure[hour=13](-74.0,40.75){New York}
\end{pspicture}
\end{center}

\begin{center}
\begin{pspicture}(-8,-8)(8,7)
\psframe*(-8,-8)(8,7)
\psline[linecolor=white](-10;37.78333)(10;37.78333)
\rput(-10;37.78333){\psline(3,0)\psarc[linecolor=white]{->}(0,0){2}{0}{37.7833}\uput[19](2;19){\white37.78}}
\psGlobeTellure[hour=11](-122.416666667,37.7833333333){San Francisco}
\end{pspicture}
\hfill
\begin{pspicture}(-8,-8)(8,7)
\psframe*(-8,-8)(8,7)
\psline[linecolor=white](-10;10.63)(10;10.63)
\rput(-10;10.63){\psline[linecolor=white](3,0)\psarc[linecolor=white]{->}(0,0){2}{0}{10.63}\uput[5.8](2;10.63){\white10.63}}
\psGlobeTellure[hour=22](-61.5,10.63){Port of Spain}
\end{pspicture}
\end{center}

\begin{center}
\begin{pspicture}(-8,-8)(8,7)
\psframe*(-8,-8)(8,7)
\psline[linecolor=white](-7;90)(7;90)
\rput(-7;90){\psline[linecolor=white](3,0)\psarc[linecolor=white]{->}(0,0){2}{0}{90}\uput[19](2;45){\white90}}
\psGlobeTellure[hour=11](-120,90){Pôle Nord}
\end{pspicture}
\hfill
\begin{pspicture}(-8,-8)(8,7)
\psframe*(-8,-8)(8,7)
\psline[linecolor=white](-9;69.55389)(9;69.55389)
\rput(-9;69.55389){\psline[linecolor=white](3,0)\psarc[linecolor=white]{->}(0,0){2}{0}{69.55389}\uput[35](2;35){\white69.55389}}
\psGlobeTellure[hour=2](31.22694,69.55389){Petchenga}
\end{pspicture}
\end{center}

\end{document}