Original p5.js code by https://x.com/yuruyurau :
◼
  • https://x.com/yuruyurau/status/1942231466446057727
    • 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)}
    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[]=
    ​
    t
    4.0715

    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