From Zurich to San Francisco: iterated image restyling

[jonathan3 (Jonathan Kinlay)]

It’s rather fun to experiment with Mathematica’s ImageRestyle function, which can produce some interesting results when applied iteratively. In this illustration we start with a photographic image of Zurich:

img =

Then we apply ImageTransfer iteratively as follows:

imgs = NestList[ImageRestyle[#, #] & , img, 10]

An interesting series of “painterly” and futuristic cityscapes emerges, somewhat in the style of Gaudi:

Let’s try geo-locating some of the images, starting with the original:

net = NetModel["ResNet-101 Trained on YFCC100m Geotagged Data"];
position = net[img];
GeoGraphics[GeoMarker[position], GeoRange -> Quantity[50, "Km"]]

As we proceed through the subsequent images, the estimated geo-location shifts around Switzerland, then Europe, before rather appropriately ending up in San Francisco:

Manipulate[GeoGraphics[GeoMarker[position[[i]]]], {i, 1, 10, 1}]

[wolframcommunity (EDITORIAL BOARD)]

– you have earned Featured Contributor Badge
Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!