Inspired by [url=https://twitter.com/beesandbombs]@beesandbombs[br][/url][br]https://twitter.com/beesandbombs/status/1526328202980884480[br]
[code]S = 26[br]s = 20[br]sp = 1[br]T = Slider(0, 2 pi, 0.01, sp, 150, false, true, false, false)[br][br]FX(x) = 10 sin(2(x + s T)) x / (3 S) [br]FY(x) = ( 20 cos(x + s T) + 2 cos(3(x + s T)) ) x / (3 S)[br][br]C = Curve( (100 + FY(S * t)) cos(t + T) - FX(S * t) sin(t + T), (100 + FY(S * t)) sin(t + T) + FX(S * t) cos(t + T), t, 0, 3/4 2 pi)[br][br]n = 700[br]Ln = Zip( C(3/4 2 pi / n * k), k, 1..n )[br]Lname = Zip( "C"+Text(k), k, 1..n)[br][br]Execute( Zip( name +" =Segment(Element(Ln, "+k+"), Element(Ln, "+(k+1)+"))", k, 1..(n-1), name, Lname ) )[br][br]#------------------------------[br]# Settings[br]#------------------------------[br][br]map(v, x, y, z, w) = z + (v - x) * (w- z) / (y - x);[br][br]Execute(Zip("ShowLabel("+name+", false)", name, Lname))[br]Execute(Zip("SetLineThickness("+name+", floor(map("+k+" / n, 1/n, 1, 1, 12)))", k, 1..n, name, Lname))[br]#Execute(Zip("SetFilling("+name+", 100)", name, Lname))[br][br]Execute(Zip("SetDynamicColor("+name+", "+k+" / n, 1, 1, 1)", k, 1..n, name, Lname))[br][br]SetBackgroundColor( "Black" )[br]ShowAxes(1, false)[br]ShowGrid(1, false)[br]CenterView((0, 0))[br][/code]