
DOWNLOAD-DESKTOP-NOTEBOOK.nb (333 KB)
– 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!
A shorter version of code for interactive app part:
ClearAll["`*"];
x = Range[0., 9999];
k = 4 Cos[x/21];
e = x/1880 - 20;
d = Sqrt[k^2 + e^2];
m = UnitStep[k^2 - 15];
Manipulate[
With[{q = 3 Sin[2 k] + .3/k + k Sin[x/4465] (9 + 2 Sin[14 e - 3 d + 2 t])},
Graphics[
({Blend[{White, Red}, Sin[t]^2], Opacity[.5], PointSize[.01],
Point@Pick[#, m, 1],
White, Opacity[.75], PointSize[.0025],
Point@Pick[#, m, 0]} &)@
Transpose@{q + 50 Cos[d - t] + 200, 875 - q Sin[d - t] - 39 d},
PlotRange -> {{100, 300}, {75, 320}},
Background -> Black,
ImageSize -> 550]],
{t, 0, 2 Pi, Appearance -> "Labeled"},
SaveDefinitions -> True]

Here is a simple time-reversal of animation - and it looks very different. So called Perceived Causality is remarkable. Forward motion reads as self-propelled body: contraction, release, internal drive. Reverse or inverted motion can read as externally driven deformation: fronds dragged by flow, seaweed bending in current, filtration fans opening and closing. That shifts perception from fauna to flora-like structure because plants/seaweed usually read as passive material responding to environment, while animals read as active bodies producing motion. See Michotte’s work:
Very cool, Vitaliy. Making art with the Wolfram Language (here, I know, transcoded from JavaScript) is such an underexplored realm.