S = (3.3, 1.18)
B = (0.64, 2.96)
k = Circle(S, B)
C = (-0.5, -1.46)
D = (8.44, 0.32)
p = Line(C, D)
A = Point(p)
a = 0 (slider from 0 to 8, step 1)
f = OrthogonalLine(A, p)
c = Circle(A, Radius[k])
A'' = Intersect(c, f, 2)
A' = Intersect(c, f, 1)
p' = Line(A', p)
p'' = Line(A'', p)
g = LineBisector(A', S)
S_1 = Intersect(f, g)
h = LineBisector(S, A'')
S_2 = Intersect(f, h)
k_1 = Circle(S_1, A)
k_2 = Circle(S_2, A)
d = Circle(S_1, A')
e = Circle(S_2, S)