S_1 = (7.32, 0.22)
B = (3.28, 1.74)
c = Circle(S_1, B)
f = Line(B, S_1)
S_2 = Point(f)
d = Circle(S_2, B)
A = Point(c)
e = Circle(B, Radius[d])
E = Intersect(e, f, 1)
g = Circle(S_1, E)
h = Line(S_1, A)
A' = Intersect(g, h, 2)
i = LineBisector(S_2, A')
S_3 = Intersect(h, i)
k = Circle(S_3, A)
a = 0 (slider from 0 to 4, step 1)