A = (-1.0119562977276988, 1.281528189246872)
B = (9.24, -3.22)
S_1 = (4.438356715341415, 2.1117109169376236)
D = (6.042104391601395, 0.5004986225900494)
k_1 = Circle(S_1, D)
p, l = Tangent(A, k_1)
g = Line(S_1, D)
S_2 = Point(g)
k_2 = Circle(S_2, D)
a = 0 (slider from 0 to 11, step 1)
I = Intersect(k_1, p, 1)
m = OrthogonalLine(I, p)
n, q = Tangent(p, k_2)
J = Intersect(k_2, n, 1)
r = Line(I, J)
K = Intersect(k_2, r, 2)
s = LineBisector(I, K)
S_4 = Intersect(m, s)
k_4 = Circle(S_4, K)
t = Line(J, D)
L = Intersect(p, t)
b = LineBisector(D, L)
S_3 = Intersect(g, b)
c = Circle(S_3, D)