|
Real globes are certainly better than this virtual globe in almost any respect, thus I added a hyperlink to gain a tiny advantage. The blue "sphere" is simply a large point, thus the polygons are not always correctly hidden. |
The polygon data was taken from the Mathmatica package Miscellaneous`WorldData`. However it is not possible to show all countries, as this would require far too many points and polygons. Thus I had to (manually) extract outlines of continents and islands. The data is now available in this document's source.
The hyperlink for Erlangen (longitude is 11.01 degrees east, latitude 49.36 degrees north) was created this way within Mathematica:
phi = 11.01 Pi/180;
theta = Pi/2. - 49.36 Pi/180;
position={Cos[phi]Sin[theta],Sin[phi]Sin[theta],Cos[theta]};
{RGBColor[1,0,0], AbsolutePointSize[5], Point[1.03 position],
RGBColor[0.5,0,0], Line[{1.03 position,1.2 position}],
Text[StyleForm["Erlangen",FontFamily->"Helvetica",
FontWeight->"Bold",FontColor->RGBColor[0.5,0,0],
FontSize->10,URL->"http://www.erlangen.de"], 1.3 position]}