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)