\newpsstyle{night}{fillstyle=solid,linestyle=none}
\newpsstyle{Globe}{circles=true,canada=true,mapcolor=gray!20,oceancolor=white}
\psset{Radius=5,Decran=100,Dobs=100,unit=0.5}
\begin{pspicture}(-8,-8)(8,8)
\psframe(-8,-8)(8,8)
\psline(-10;37.78333)(10;37.78333)
\rput(-10;37.78333){\psline(3,0)\psarc{->}(0,0){2}{0}{37.7833}\uput[19](2;19){37.78}}
\psGlobeTellure[hour=10](-122.416666667,37.7833333333){San Francisco}
\end{pspicture}