Inspired by [url=https://www.geogebra.org/u/gwengler]George Wengler[/url] from this applet: [url=https://www.geogebra.org/m/ycvbmtpj]Spirale[/url]

n = 500[br][br]t = random() * 100[br]s = random() * 100[br][br]c2 = random()[br]c3 = random()[br][br]Ln = 1..n[br][br]a = Mod(s * t, 360)[br][br]Lname = Zip("seg"+Text(k), k, Ln)[br][br]#P = Zip( ( 1/n * k * cos(pi/180 * a * k), 1/n * k * sin(pi/180 * a * k)), k, Ln)[br][br]fx(x,y,z) = 1/x * y * cos(pi/180 * z * y)[br]fy(x,y,z) = 1/x * y * sin(pi/180 * z * y)[br][br]Execute(Zip( name+" = Segment( (fx(n, "+k+", a), fy(n, "+k+", a)), (fx(n, "+(k+1)+", a), fy(n, "+(k+1)+", a)) ) ", k, Ln, name, Lname))[br][br]Execute(Zip("ShowLabel("+name+", false)", name, Lname))[br][br]map(v, x, y, z, w) = z + (v - x) * (w- z) / (y - x);[br][br]Execute(Zip("SetDynamicColor("+name+", map("+k+", 1, 500, 0, 1), c2, c3)", name, Lname, k, Ln))[br][br]ShowGrid(false)[br]ShowAxes(false)[br]CenterView((0,0))[br]SetBackgroundColor( "Black" )