Check this out!
Script
O = (0, 0)
n = 10
Ln = 1..n
Execute(Zip("C"+k+" = Circle(O, "+k+")", k, Ln))
map(v, w, x, y, z) = y + (v - w) * (z - y) / (x - w)
f(x, y) = sin(x + 2 * pi/10 * y)
speed = 1
run = Slider(0, 1, 0.01, speed, 180, false, true, false, false)
t = 0
Execute(Zip("SetLineThickness(C"+k+", map(f(t, "+k+"), -1, 1, 1, 26))", k, Ln))
Execute(Zip("ShowLabel(C"+k+", false)", k, Ln))
colText = "White"
Execute(Zip("SetColor(C"+k+", colText)", k, Ln))
CenterView(O)
SetBackgroundColor( "Black" )
ShowAxes(false)
ShowGrid(false)
StartAnimation(run, true)
SetVisibleInView(O, 1, false)
SetVisibleInView(run, 1, false)
#---------------------------------------------------------------
# In the slider "run" add the following in the update tab
#---------------------------------------------------------------
SetValue(t, t+0.1)
Execute(Zip("SetLineThickness(C"+k+", map(f(t, "+k+"), -1, 1, 1, 26))", k, Ln))