Sliders great trick
Drag slider k
Slider great trick from Bernat
https://youtu.be/Ta52MlTNRXg
top = Slider(0, 10, 1, 1, 200, false, true, false, false)
SetValue(top, 6)
k = Slider(0, top, 0.1, 1, 200, false, true, false, false)
sl = Sequence(Max(0, Min(1, k - s)), s, 0, top-1)
sc = Sequence(0 < sl(s) < 1, s, 1, top)
sc' = Sequence(0 < sl(s) <= 1, s, 1, top)
A = (-3, 0)
B = (0, 0)
C = (4, 0)
c = Circle(A, 1)
d = Circle(B, 1.5)
e = Circle(C, 2)
This is an example where I used this cool trick!
Alternative for animation step by step
top = Slider(0, 6, 1, 1, 200, false, true, false, false)
SetValue(top, 6)
Execute(Zip("K"+j+" = Slider(0, 1, 0.01, 1, 200)", j, 1...top))
Execute(Zip("SetValue(K"+j+", 0)", j, 1...top))
Execute(Zip("SetVisibleInView(K"+j+", 1, false)", j, 1...top))
sl = CellRange(K1, K6)
sumTotal = Sum(sl)
sc = Sequence(0 < sl(s) < 1, s, 1, top)
sc' = Sequence(0 < sl(s) <= 1, s, 1, top)