I'd like to obtain a country map of France, as polygon xy positions so I can adjust the borders.
Currently I'm using:
i= GeoGraphics[{GeoStyling[None], Polygon[France (country)]}, GeoBackground -> None, GeoZoomLevel->1]
Which returns an image.
I then obtain a white on black outline of the country by:
e = EdgeDetect[i]
I get the coordinates of the outline by looking for white pixels:
p = PixelValuePositions[e, 1]
And then draw an outline around it:
ListCurvePlot[p]
This sort of works, but the results are choppy and ListCurvePlot seems to miss a lot of the borders. Furthermore, PixelValuePositions just returns a set of points which are ordered by how their XY positions on the image, not necessarily by which points are adjacent on the map. This would not be a problem for a straight horizontal border, but with vertical and irregular lines adjacent points end up being non-adjacent.
CountryData["France", "SchematicCoordinates"]
. p.s.GeoGraphics
is not an image but aGraphicsBox
at the end (with image as background). $\endgroup$