a=(x,y,d=mag(k=(4+sin(x/11+t*8))*cos(x/14),e=y/8-19)+sin(y/9+t*2))=>point((q=2*sin(k*2)+sin(y/17)*k*(9+2*sin(y-d*3)))+50*cos(c=d*d/49-t)+200,q*sin(c)+d*39-440)
t=0,draw=$=>{t||createCanvas(w=400,w);background(9).stroke(w,96);for(t+=PI/240,i=1e4;i--;)a(i,i/235)}
t=0,draw=$=>{t||createCanvas(w=400,w);background(9).stroke(w,96);for(t+=PI/240,i=1e4;i--;)a(i,i/235)}
Translation into Wolfram Language:
In[]:=
Manipulate[ Module[{pts}, pts = Table[ Module[{x, y, k, e, d, q, c, xp, yp}, x = i; y = i/235.; k = (4 + Sin[x/11 + 8*t]) * Cos[x/14]; e = y/8 - 19; d = Sqrt[k^2 + e^2] + Sin[y/9 + 2*t]; q = 2*Sin[2*k] + Sin[y/17]*k*(9 + 2*Sin[y - 3*d]); c = d^2/49 - t; xp = q + 50*Cos[c] + 200; yp = q*Sin[c] + d*39 - 440; {xp, 400 - yp} ], {i, 9999, 0, -1} ]; Graphics[ {White, Opacity[.9], PointSize[.002], Point[pts]}, PlotRange -> {{70, 330}, {30, 350}}, Background -> GrayLevel[9/255], Axes -> False, ImageSize -> 550 ] ], {t, 0, 2*Pi, Appearance -> "Labeled"},SaveDefinitions->True]
Out[]=
CITE THIS NOTEBOOK
CITE THIS NOTEBOOK
Magnoquill Driftflare Quiverbloom: translating from P5.JS processing to Wolfram
by Vitaliy Kaurov
Wolfram Community, STAFF PICKS, July 22, 2025
https://community.wolfram.com/groups/-/m/t/3516580
by Vitaliy Kaurov
Wolfram Community, STAFF PICKS, July 22, 2025
https://community.wolfram.com/groups/-/m/t/3516580