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)