S_1 = (13.915166629902116, -1.8968812668840074)
B = (9.177007410946917, -4.972405374268822)
k_1 = Circle(S_1, B)
S_2 = (20.48, -8.9)
D = (14.96, -2.68)
k_2 = Circle(S_2, D)
T = Point(k_2)
p = Tangent(T, k_2)
a = 0 (slider from 0 to 8, step 1)
f = OrthogonalLine(T, p)
A = Mirror(S_2, p)
g = Line(A, p)
e = Parabola(S_2, g)
C = Intersect(k_1, k_2, 2)
h = Ellipse(S_1, S_2, C)
E = Point(h)
i = Line(E, S_1)
F = Intersect(k_1, i, 1)
k = Circle(E, F)
G = Point(e)
j = OrthogonalLine(G, p)
H = Intersect(p, j)
q = Circle(G, H)
I = Point(f)
r = Circle(I, T)
s = Hyperbola(S_2, S_1, C)
J = Point(s)
l = Line(J, S_1)
K = Intersect(k_1, l, 1)
t = Circle(J, K)
L = Intersect(s, l, 2)
vzdalenostJS1 = Distance(J, S_1)
TextJS1: Name[J] + (Name[S_1]) + " = " + vzdalenostJS1
vzdalenostLS1 = Distance(L, S_1)
TextLS1: Name[L] + (Name[S_1]) + " = " + vzdalenostLS1
M = Intersect(k_1, l, 2)
c_1 = Circle(J, M)
S_3 = Intersect(h, f, 2)
k_3 = Circle(S_3, T)
S_4 = Intersect(s, f, 1)
k_4 = Circle(S_4, T)
S_5 = Intersect(e, s, 4)
m = OrthogonalLine(S_5, p)
Q = Intersect(p, m)
k_5 = Circle(S_5, Q)
S_6 = Intersect(e, s, 3)
n = OrthogonalLine(S_6, p)
S = Intersect(p, n)
k_6 = Circle(S_6, S)