A = (2.44, -7.74)
B = (5.16, 1.9)
p = Line(A, B)
g = OrthogonalLine(B, p)
S_1 = Point(g)
k_1 = Circle(S_1, B)
S_2 = (12.04, -5.48)
E = (7.24, -8.28)
k_2 = Circle(S_2, E)
h = OrthogonalLine(S_2, p)
F = Intersect(p, h)
e = Circle(F, Radius[k_2])
G = Intersect(e, h, 1)
i = OrthogonalLine(G, h)
H = Intersect(e, h, 2)
j = OrthogonalLine(H, h)
k = Parabola(S_2, i)
p_{1} = Parabola(S_2, j)
S_{4} = Intersect(p_{1}, g, 1)
k_{4} = Circle(S_{4}, B)
S_{3} = Intersect(k, g, 1)
k_{3} = Circle(S_{3}, B)
a = 0 (slider from 0 to 4, step 1)