Message Boards Message Boards

GROUPS:

From Zurich to San Francisco: iterated image restyling

Posted 4 months ago
1083 Views
|
1 Reply
|
13 Total Likes
|

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

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!

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