n = 30[br]k = 2.4[br]m = 3[br]f = (cos(x)^n + sin(x)^n) ^ (1 / (k * n))[br]#c = Curve((1 / f(θ); 2θ / m), θ, 0, m pi)[br][br]speed = 0.3[br]t = Slider(0, m * pi, 0.01, speed, 180, false, true, false, false)[br][br]Lk = 1..10[br]Execute(Zip("C"+k+" = Curve(( "+k+" * 1 / f(θ); 2θ / m), θ, "+k+" * t, m pi * 0.5 + "+k+" * t)", k, Lk))[br]Execute(Zip("SetLineThickness(C"+k+", 14)", k, Lk))[br]Execute(Zip("ShowLabel(C"+k+", false)", k, Lk))[br][br]# Thanks Thijs for this neat trick :)[br]Lname = {"n", "k", "m", "f", "t"}[br]Execute(Zip("SetVisibleInView("+name+", 1, false)", name, Lname))[br]Delete(Lname)[br][br]ShowAxes(false)[br]ShowGrid(false)[br]CenterView((0, 0))[br]StartAnimation(t, true)