An attempt to make a noisy loop :) Inspired by [url=https://x.com/Pixelated_Donut/]ronwnor[/url]

Check it with music: https://www.youtube.com/shorts/C3l9ppVW-kA

The applet is laggy online. It runs better in your desktop.

[code]speed = 0.6[br]time = Slider(0, 2 pi, 0.01, speed, 200)[br][br]a = 10[br]b = 6[br]c = 4[br]d = 20[br]e = 4[br]f = -3[br][br]C1x(x) = a * cos(x) / (d - f * sin(x))[br]C1y(x) = c * sin(x) / (d - f * sin(x))[br]c1 = Curve(C1x(t), C1y(t), t, 0, 2pi)[br][br]Lf = Zip( cos( 3^k * x + (-3)^k * time ) / 3^k, k, 1...6)[br][br]F(x) = 1 + Sum(Lf)[br]G(x) = 1 + exp(99 * sin(40 * x))[br][br]C2x(x) = a * cos(x) / (d - e * F(x) / G(x) + f * sin(x))[br]C2y(x) = (b * F(x) / G(x) - c * sin(x)) / (d - e * F(x) / G(x) + f * sin(x))[br]c2 = Curve(C2x(t), C2y(t), t, 0, 2pi)[br][br]C3x(x) = a * cos(x) / (d - e * F(x) + f * sin(x))[br]C3y(x) = (b * F(x) - c * sin(x)) / (d - e * F(x) + f * sin(x))[br]c3 = Curve(C3x(t), C3y(t), t, 0, 2pi)[br][br][br]Lnames = {"C1x", "C1y","C2x", "C2y","C3x", "C3y"}[br]Execute(Zip("SetVisibleInView("name", 1, false)", name, Lnames))[br][br]Lmain = {"c1", "c2", "c3"}[br]myColor = "White"[br]SetVisibleInView(myColor, 1, false)[br]Execute(Zip("ShowLabel("name", false)", name, Lmain))[br]Execute(Zip("SetColor("name", myColor)", name, Lmain))[br][br]SetVisibleInView(time, 1, false)[br][br]ShowGrid(false)[br]ShowAxes(false)[br]SetBackgroundColor("Black")[br]CenterView((0, 0.3))[br]StartAnimation(time, true)[/code]

Support my work in Patreon: [url=https://www.patreon.com/jcponce] https://www.patreon.com/jcponce[br][br][/url]Thanks!