S_1 = (18.36, -5.3)
B = (9.18, -3.78)
k_1 = Circle(S_1, B)
S_2 = (17.44561193150274, -8.630369149668821)
D = (18.58, -6.2)
k_2 = Circle(S_2, D)
C = (7.372221376338914, 0.6962380170135626)
p, f_1 = Tangent(C, k_2)
g = OrthogonalLine(S_2, p)
a = 0 (slider from 0 to 5, step 1)
E = Intersect(p, g)
c = Circle(E, Radius[k_2])
F = Intersect(c, g, 2)
h = Line(F, p)
G = Intersect(c, g, 1)
d = Parabola(S_2, h)
j = Line(S_2, S_1)
H = Intersect(k_2, j, 1)
J = Intersect(k_1, j, 1)
K = Midpoint(J, H)
p_{1} = Ellipse(S_2, S_1, K)
S_6, S_5 = Intersect(d, p_{1})
k = OrthogonalLine(S_5, p)
m = OrthogonalLine(S_6, p)
L = Intersect(p, k)
k_5 = Circle(S_5, L)
O = Intersect(m, p)
k_6 = Circle(S_6, O)
q = Circle(K, J)
P = Point(p_{1})
r = Line(P, S_2)
Q = Intersect(k_2, r, 1)
s = Circle(P, Q)
S = Point(d)
b = OrthogonalLine(S, p)
U = Intersect(p, b)
d_1 = Circle(S, U)
i = OrthogonalLine(S_2, p)
A = Point(i)
I = Intersect(k_2, d, 1)
e = Circle(A, I)
M = Intersect(k_2, j, 2)
N = Midpoint(M, J)
t = Ellipse(S_2, S_1, N)
R = Point(t)
l = Line(R, S_1)
T = Intersect(k_1, l, 1)
c_1 = Circle(R, T)
e_1 = Circle(N, M)
S_4 = Intersect(t, i, 2)
S_3 = Intersect(p_{1}, i, 1)
k_4 = Circle(S_4, I)
k_3 = Circle(S_3, I)