Mystery curve

GGBscript

Cx = Sequence(RandomUniform(-2,2), i, 1, 4) Cy = Sequence(RandomUniform(-2,2), i, 1, 4) n = Sequence(RandomBetween(-30, 30), i, 1, 4) cX = Sequence(Element(Cx, i) * cos(Element(n, i) * x) - Element(Cy, i) * sin(Element(n, i) * x), i, 1, 4) cY = Sequence(Element(Cx, i) * sin(Element(n, i) * x) + Element(Cy, i) * cos(Element(n, i) * x), i, 1, 4) r = RandomBetween(2, 4) fx(x)= Sum(cX, r) fy(x)= Sum(cY, r) s = Slider(0, 4 pi,pi/2, 1, 150, false, true, false, false) R = RandomUniform(0,1) G = RandomUniform(0,1) B = RandomUniform(0,1) c = Curve(fx(t), fy(t), t, 0, s) SetDynamicColor(c, R, G, B)

Save Image script

 ExportImage("filename", "mystery-curve.png", "scalecm", 1, "dpi", 300, "view", 1)