A = (1.2, -0.8)
B = (13.46, -1.5)
p = Line(A, B)
C = Point(p)
g = OrthogonalLine(C, p)
S_1 = Point(g)
k_1 = Circle(S_1, C)
S_2 = (16.789632337323074, 5.637851096870905)
F = (12.15821129805097, 5.792231798179976)
k_2 = Circle(S_2, F)
D = Point(g)
a = 0 (slider from 0 to 6, step 1)
E = Mirror(S_1, p)
f = Line(E, p)
h = OrthogonalLine(C, p)
c = Parabola(S_1, f)
i = Line(S_1, S_2)
G = Intersect(k_1, i, 2)
H = Intersect(k_2, i, 1)
I = Intersect(k_2, i, 2)
J = Midpoint(G, H)
K = Midpoint(G, I)
d = Hyperbola(S_1, S_2, J)
e = Hyperbola(S_2, S_1, K)
L, S_7 = Intersect(e, h)
S_8 = Intersect(d, h, 1)
S_4 = Intersect(c, d, 4)
S_3 = Intersect(c, d, 3)
k_7 = Circle(S_7, C)
k_8 = Circle(S_8, C)
j = OrthogonalLine(S_4, p)
R = Intersect(p, j)
k_4 = Circle(S_4, R)
l = OrthogonalLine(S_3, p)
S = Intersect(p, l)
k_3 = Circle(S_3, S)
S_5 = Intersect(c, e, 4)
m = OrthogonalLine(S_5, p)
U = Intersect(p, m)
k_5 = Circle(S_5, U)
S_6 = Intersect(c, e, 3)
n = OrthogonalLine(S_6, p)
W = Intersect(p, n)
k_6 = Circle(S_6, W)
M = Point(h)
k = Circle(M, C)
O = Point(c)
q = OrthogonalLine(O, p)
P = Intersect(p, q)
r = Circle(O, P)
Q = Point(d)
s = Line(Q, S_2)
T = Intersect(k_2, s, 1)
V = Intersect(k_2, s, 2)
t = Circle(Q, T)
c_1 = Circle(Q, V)
vzdalenostQS1 = Distance(Q, S_1)
TextQS1: Name[Q] + (Name[S_1]) + " = " + vzdalenostQS1
vzdalenostQS2 = Distance(Q, S_2)
TextQS2: Name[Q] + (Name[S_2]) + " = " + vzdalenostQS2
Z = Point(e)
b = Line(Z, S_2)
A_1 = Intersect(k_2, b, 1)
B_1 = Intersect(k_2, b, 2)
d_1 = Circle(Z, A_1)
e_1 = Circle(Z, B_1)
vzdalenostZS1 = Distance(Z, S_1)
TextZS1: Name[Z] + (Name[S_1]) + " = " + vzdalenostZS1
vzdalenostZS2 = Distance(Z, S_2)
TextZS2: Name[Z] + (Name[S_2]) + " = " + vzdalenostZS2
f_1 = Circle(K, I)
g_1 = Circle(J, H)