Fantastic. Mostly 𝐬𝐢𝐧(𝐱). Name it... Fireeel? Remix in
#Wolfram Mathematica. Full code below.
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]],
{t, 0, 2 Pi}]
a=(x,y,d=mag(k=4*cos(x/21),e=y/8-20))=>circle((q=3*sin(k*2) .3/k sin(y/19)*k*(9 2*sin(e*14-d*3 t*2))) 50*cos(c=d-t) 200,q*sin(c) d*39-475,k*k>15?2:1)
t=0,draw=$=>{t||createCanvas(w=400,w);background(9).noStroke().fill(w,116);for(t =PI/240,i=1e4;i--;)a(i,i/235)}
#つぶやきProcessing