S_1 = (18.36, -5.3)
B = (9.18, -3.78)
k_1 = Circle(S_1, B)
S_2 = (16.04, -8.54)
D = (18.58, -6.2)
k_2 = Circle(S_2, D)
A = (4.46, -2.14)
C = (30.24, -12.8)
p = Line(A, C)
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)
i = Line(G, p)
d = Parabola(S_2, h)
e = Parabola(S_2, i)
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)
M = Center(e)
S_3, S_4 = Intersect(e, p_{1})
S_6, S_5 = Intersect(d, p_{1})
k = OrthogonalLine(S_5, p)
l = OrthogonalLine(S_3, p)
m = OrthogonalLine(S_6, p)
n = OrthogonalLine(S_4, p)
I = Intersect(p, l)
k_3 = Circle(S_3, I)
L = Intersect(p, k)
k_5 = Circle(S_5, L)
N = Intersect(n, p)
O = Intersect(m, p)
k_4 = Circle(S_4, N)
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)
R = Point(e)
S = Point(d)
t = OrthogonalLine(R, p)
b = OrthogonalLine(S, p)
T = Intersect(p, t)
c_1 = Circle(R, T)
U = Intersect(p, b)
d_1 = Circle(S, U)