S = (19.48, -5.16)
B = (12.7, -2.26)
k = Circle(S, B)
a = 0 (slider from 0 to 1, step 1)
c = Circle(S, Distance[B, S] / 2)
A = Point(c)
d = Circle(A, S)