Message Boards Message Boards

From Zurich to San Francisco: iterated image restyling

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 = enter image description here

Then we apply ImageTransfer iteratively as follows:

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

enter image description here

An interesting series of "painterly" and futuristic cityscapes emerges, somewhat in the style of Gaudi: enter image description here

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"]]

enter image description here

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}]

enter image description here enter image description here

POSTED BY: Jonathan Kinlay

enter image description here -- you have earned Featured Contributor Badge enter image description here 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!

POSTED BY: Moderation Team
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract