New answers tagged

18

Here is a solution I can think of. Idea is to take the FullPolygon of a given country and then triangulate the region. Once that is done take the underlying Graph and do a FindShortestPath. Result will not be too bad. fullPoly = CountryData["Vietnam", "FullPolygon"]; pts = Flatten[fullPoly[[1, 1]], 1]; line = Polygon[Range[##]] & @@@ Partition[{1}~Join~ ...


5

To get the state borders, one can overlay an "OutlineMap" on top of a background with GeoStyles["SreetMapLabelsOnly"]. The key is to ask for a map that is big enough to catch all of the states you want to see, and then specify the center of the area of interest via GeoCenter the range of the area you want to plot via GeoRange the level of detail via ...


1

Code: With[{vc = Transpose[ Rescale /@ Transpose[First[CountryData[#, "Coordinates"]]]]}, Show[CountryData[#, "Shape"], ImageSize -> {{100}, {100}}] /. {RGBColor[__] :> Texture[ImageReflect[Image[CountryData[#, "Flag"]], Top -> Right]], Polygon[a_] :> ...



Top 50 recent answers are included