A = (-6.336040869767975, -1.9096084432654115)
B = (-0.04, -1.86)
p = Line(A, B)
C = Point(p)
g = OrthogonalLine(C, p)
S_1 = Point(g)
k_1 = Circle(S_1, C)
S_3 = Intersect(k_1, g, 2)
S_2 = Mirror(S_1, S_3)
h = LineBisector(S_1, S_2)
k_2 = Circle(S_2, S_3)
k_3 = Circle(S_3, C)
k = Circle(S_2, C)
S_4 = Intersect(k, h, 2)
S_5 = Intersect(k, h, 1)
k_5 = Circle(S_5, Radius[k_3])
k_4 = Circle(S_4, Radius[k_3])
a = 0 (slider from 0 to 4, step 1)
e = Circle(S_1, S_4)