S_1 = (6.42, 1.08)
A_{1} = (-0.28, -0.3)
k_1 = Circle(S_1, A_{1})
C = Point(k_1)
p = Line(A_{1}, C)
A = Point(p)
g = OrthogonalLine(S_1, p)
E = Intersect(p, g)
d = Circle(E, Radius[k_1])
F = Intersect(d, g, 2)
h = OrthogonalLine(F, g)
G = Intersect(d, g, 1)
i = OrthogonalLine(G, g)
e = Parabola(S_1, h)
k = Parabola(S_1, i)
j = OrthogonalLine(A, p)
S_2 = Intersect(k, j, 1)
S_3 = Intersect(e, j, 1)
k_2 = Circle(S_2, A)
k_3 = Circle(S_3, A)
a = 0 (slider from 0 to 4, step 1)