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 ]