Mercator projection aus http://mathworld.wolfram.com/MercatorProjection.html und die fehlende Datei "earth.pts"

[Klamser@XXXXXXX.de (klamser)]

Hallo,

ein schönes Jahr 2005 wünsche ich euch!

Unter der URL http://mathworld.wolfram.com/MercatorProjection.html ist 
das Notebook zu finden, das die Mercator-Projektion erklärt.

In dem NB kann man den folgenden Text finden:

For a list of Eric's math packages that may be needed to evaluate this 
notebook, see http://mathworld.wolfram.com/packages/.  An archive of 
these packages may be downloaded from 
http://mathworld.wolfram.com/packages/MathWorldPackages.zip, as well as 
from the Mathematica Information Center's MathSource item 4775.  A list 
of Eric's utility packages that may be needed to evaluate this notebook 
may be downloaded from MathSource item 5087.

Kein Problem, die Packages aus 
http://mathworld.wolfram.com/packages/MathWorldPackages.zip zu installieren.

Aber leider fehlt die Datei "earth.pts".

Ich weiß nicht, wo ich diese finden kann. Google hat mich auch nicht 
weiter geholfen.

Kein Problem dachte ich, den Mathematica enthält das 
<<Miscellaneous`WorldData` Package.

Mit

Needs["Miscellaneous`WorldPlot`"]
wd = {#1, WorldData[#1]/60 // N} & /@ Map[ToString, World];
wd >> "c:\\z\\bin\\w.pts";

kann ich die Daten extrahieren. Aber in welchem Format soll ich sie 
abspeichern.

Das Package <<MathWorld`MapProjections` enthält den Code, um die Daten 
zu lesen:

MapCoordinates[opts___] := Module[
{data, pos, dir = StringJoin[{MapDirectory,Directory} /. {opts} /.  
Options[MapCoordinates]], file = MapFile /. {opts} 
/.Options[MapCoordinates]},
(*=>*) data = ReadList[dir <> file, Word, RecordLists -> 
True,WordSeparators -> {"\t", " "}, RecordSeparators -> {"\n"}];
(*=>*) pos = Flatten[Position[First /@ data, _?(StringTake[#, 1] == "#" 
&)]];
(*=>*) ToExpression /@ Take[data, #] & /@ Transpose[{Most[pos + 1], 
Rest[pos - 1]}]Degree];

Kann mir bitte jemand sagen
a) wo ich die Datei "earth.pts" finden kann oder
b) in welchem Format ich die Datei "earth.pts" erzeugen muss, damit der 
obige Code funktioniert?

Schöne Grüße

Peter Klamser