# From this tutorial:
# https://blog.wolfram.com/2014/12/01/extending-van-goghs-starry-night-with-inpainting/

# - Sign up for the Wolfram|One trial: https://www.wolframcloud.com
# - Start a new notebook
# - Paste in the code and hit shift+enter to run

# Output: https://interconnected.org/more/2021/08/extrapolated-earth/extrapolated-earth-output-small.png
# Blog post: https://interconnected.org/home/2021/08/19/extrapolated

child = ImageResize[Import["https://upload.wikimedia.org/wikipedia/commons/thumb/4/44/World_map_blank_shorelines_semiwikimapia.svg/1280px-World_map_blank_shorelines_semiwikimapia.svg.png"], 1280];
child = ImagePad[child, -5];
dims = ImageDimensions[child];
starryPadded = ImageCrop[child, 2*dims, Padding->White];
mask = ImageCrop[ConstantImage[Black, dims], 2*dims, Padding->White];
Inpaint[starryPadded, mask, Method->{"TextureSynthesis", "NeighborCount"->30, "MaxSamples"->800}]

# Or, to save hi-res
output = Inpaint[starryPadded, mask, Method->{"TextureSynthesis", "NeighborCount"->30, "MaxSamples"->800}]
CloudExport[output, "PNG"]
# ... which will provide a URL where the image can be downloaded