New answers tagged

5

Here's an idea, but it only works (partially) with the easiest of the test cases. img = CloudGet[CloudObject["https://www.wolframcloud.com/objects/068cf32f-b753-4c38-bc01-\ f378bc64d54a"]][[5]] (* Binarize - this step depends a lot on the background in the image *) img2 = ChanVeseBinarize[img, Automatic, {Automatic, Automatic, 2, 1}] (* Find ...


7

We can use cylindrical functions with ImageTransformation[] to show waves on the water, for example img= lst = Table[ ImageTransformation[ img, {#[[ 1]] (1 + Sin[Pi x/40] BesselJ[1, 20 Sin[Pi x/ 40] Sqrt[(#[[1]] - .5)^2 + (#[[2]] - .5)^2]]), #[[ 2]] (1 + Sin[Pi x/40] BesselJ[1, ...


4

Here is the beginning of the transformation in slow motion. We see that the top right and bottom left quadrants are getting heavily distorted in a symetrical way, while the other two quadrants are tilting. (The gif below was obtained by saving the original gif, then use Import to import the file as a list of 181 images, then Export the first 40 or so of ...


Top 50 recent answers are included