I'm looking to create image warping effect that looks like this animation, which resembles a misshapen magnifying glass being moved over a background:
Not sure where to start, but here are some related posts:
$\begingroup$
$\endgroup$
5
2 Answers
$\begingroup$
$\endgroup$
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,
15 Sin[Pi x/
40] Sqrt[(#[[1]] - .5)^2 + (#[[2]] - .5)^2]])} &,
Padding -> "Periodic"], {x, 0, 40, 1/2}];
And with some azimuthal waves
lst = Table[
ImageTransformation[
img, {#[[
1]] (1 +
Sin[Pi x/40] Cos[4 Pi ArcTan[#[[1]], 1 - #[[2]]]] BesselJ[1,
20 Sin[
Pi x/40] Sqrt[(#[[1]] - .5)^2 + (1 - #[[2]])^2]]), #[[
2]] (1 +
Sin[Pi x/40] Sin[4 Pi ArcTan[#[[1]], 1 - #[[2]]]] BesselJ[1,
20 Sin[
Pi x/40] Sqrt[(#[[1]] - .5)^2 + (1 - #[[2]])^2]])} (1 +
x/20 Sin[Pi x/40]) &, Padding -> "Periodic"], {x, 0, 40,
1/2}];
answered Nov 22, 2020 at 19:30
$\begingroup$
$\endgroup$
3
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 these images as a new gif with the option DiplayDurations->0.6).
Does this help figure out how to do it? It is likely a clue, but I don't know what it means.
The following transformation shows some potential.
list = Table[
ImageTransformation[img, Sin[x Pi #] Sin[ Pi Reverse[#]] &], {x,
0.3, 0.70, 0.01}]
Here is the list as a gif.
Of course there are endless possible variations:
list = Table[
ImageTransformation[img,
0.70 # + 0.1 Sin[x Pi #] Sin[Pi Reverse[#]] + 0.1 &], {x, 0.3,
2.70, 0.01}]
-
$\begingroup$ Could you add some code to your answer? $\endgroup$ Commented Nov 20, 2020 at 10:31
-
$\begingroup$ This is really a question, not an answer. Does the fact that we have quadrants affected differently provide a clue as to the kind of function used in the transformation? The second image is just an example of a failed, but entertaining attempt. I did not keep the code. $\endgroup$ Commented Nov 20, 2020 at 12:31
-
$\begingroup$ Maybe do background subtraction first? Also please post code for this we can ping pong ideas in that way... $\endgroup$– M.R.Commented Nov 20, 2020 at 19:22
ImageTransformationyou need to apply. $\endgroup$ImageTransformation. The transformation is a simplified form of blackhole effect with two or three moving blackholes. It is hard to reconstruct the trajectories exact. $\endgroup$ImageResize[RandomImage[1, {32, 32}, ColorSpace -> "RGB"], {200, 200}, Resampling -> "Nearest"]. The up-sampling is to mitigate colour shifts when the filter resamples after distortion. It would be very difficult but it's probably the best way to reproduce this exact distortion. $\endgroup$