Hot answers tagged

1

For visualization purposes only I propose a simple and robust approach using a thick boundary line: shape = CountryData["Chad", "Coordinates"]; r = 2; xmin = Min[shape[[1, ;; , 1]]] - r; xmax = Max[shape[[1, ;; , 1]]] + r; ymin = Min[shape[[1, ;; , 2]]] - r; ymax = Max[shape[[1, ;; , 2]]] + r; Graphics[{{FaceForm[Blue], EdgeForm[{...


1

shape = First @ CountryData["Chad", "Coordinates"]; poly = Polygon @ shape; srd = SignedRegionDistance @ poly; ranges = Flatten /@ Transpose[{{x, y}, CoordinateBounds[ScalingTransform[1.4 {1, 1}, Mean @ shape] @ shape]}]; ContourPlot[srd[{x, y}] == #, ranges[[1]], ranges[[2]], Frame -> False, ImageSize -> 400, ...


Only top voted, non community-wiki answers of a minimum length are eligible