S_1 = (19.5, -6.22)
B = (26.76, -9.7)
k_1 = Circle(S_1, B)
f = Line(S_1, B)
S_2 = Point(f)
k_2 = Circle(S_2, B)
D = (9.52, -10.28)
E = (34.8, -2)
p, b = Tangent(E, k_2)
g = Tangent(B, k_1)
h = OrthogonalLine(B, g)
i, j = AngularBisector(p, g)
S_3 = Intersect(h, j)
k_3 = Circle(S_3, B)
c = Ellipse(S_1, S_2, B)
C = Mirror(S_2, B)
k = OrthogonalLine(S_2, p)
A = Intersect(p, k)
d = Circle(A, Radius[k_2])
F = Intersect(d, k, 1)
l = OrthogonalLine(F, k)
G = Intersect(d, k, 2)
m = OrthogonalLine(G, k)
q = Parabola(S_2, m)
S_8 = Intersect(c, q, 1)
S_7 = Intersect(c, q, 2)
r = OrthogonalLine(S_7, p)
s = OrthogonalLine(S_8, p)
I = Intersect(r, p)
J = Intersect(s, p)
k_7 = Circle(S_7, I)
k_8 = Circle(S_8, J)
a = 0 (slider from 0 to 8, step 1)
H = Intersect(k_2, q, 1)
n = OrthogonalLine(H, p)
S_4 = Intersect(c, n, 1)
e = Circle(S_4, H)
K = Point(h)
t = Circle(K, B)
L = Point(j)
f_1 = OrthogonalLine(L, g)
M = Intersect(g, f_1)
c_1 = Circle(L, M)
N = Point(c)
g_1 = Line(S_2, N)
O = Intersect(k_2, g_1, 2)
d_1 = Circle(N, O)
P = Point(q)
h_1 = OrthogonalLine(P, p)
Q = Intersect(p, h_1)
e_1 = Circle(P, Q)
R = Point(n)
p_1 = Circle(R, H)