T = (5.68, 0.24)
B = (2.14, 3.3)
f = Line(T, B)
S_2 = Point(f)
k_2 = Circle(S_2, T)
S_1 = Point(f)
k_1 = Circle(S_1, T)
E = (4.44, 2.48)
p = Line(T, E)
C = Point(p)
a = 0 (slider from 0 to 4, step 1)
g = Line(S_1, S_2)
c = Ellipse(S_2, S_1, T)
h = OrthogonalLine(S_2, p)
D = Intersect(p, h)
d = Circle(D, Radius[k_2])
F = Intersect(d, h, 2)
i = Line(F, p)
G = Intersect(d, h, 1)
j = Line(G, p)
e = Parabola(S_2, i)
k = Parabola(S_2, j)
S_3 = Intersect(c, e, 2)
I, S_4 = Intersect(k, c)
l = OrthogonalLine(S_4, p)
m = OrthogonalLine(S_3, p)
K = Intersect(p, m)
L = Intersect(l, p)
k_4 = Circle(S_4, L)
k_3 = Circle(S_3, K)