Hexagonal spin

Script

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