New in Wolfram Mathematica 7: Integrated Geodesy & GIS  previous | next 
Solve Geodetic Forward Problems
Show a range of 1000 kilometers around Frankfurt.
In[1]:=

Click for copyable input
Show[Graphics[

  CountryData[#, "Polygon"] & /@ CountryData["Europe"] /. 

   Polygon -> Line], 

 ParametricPlot[

  Reverse@GeoDestination[

     GeoPosition[CityData["Frankfurt", "Coordinates"]], {1000000, 

      t}][[1]], {t, 0, 360}, PlotStyle -> Directive[Red, Thick]], 

 ImageSize -> Medium ]
Out[1]=