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

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