Check this out!

Topic:
Geometry

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))