A = (3.78, -3.88)
B = (15.02, -3.16)
f = Line(A, B)
C_{1} = Point(f)
g = OrthogonalLine(C_{1}, f)
S_1 = Point(g)
k_1 = Circle(S_1, C_{1})
C = Point(k_1)
h = Line(S_1, C)
S_2 = Point(h)
k_2 = Circle(S_2, C)
a = 0 (slider from 0 to 6, step 1)
D = (8.4, -0.76)
e = Hyperbola(S_1, S_2, C)
i = Line(S_1, S_2)
E = Mirror(S_1, f)
j = Line(E, f)
k = Parabola(S_1, j)
l = OrthogonalLine(C_{1}, f)
S_3 = Intersect(e, l, 2)
k_3 = Circle(S_3, C_{1})
S_4 = Intersect(e, k, 3)
m = OrthogonalLine(S_4, f)
H = Intersect(f, m)
k_4 = Circle(S_4, H)
S_6 = Intersect(e, k, 4)
n = OrthogonalLine(S_6, f)
J = Intersect(f, n)
k_6 = Circle(S_6, J)
S_5 = Intersect(k, i, 2)
k_5 = Circle(S_5, C)
F = Point(l)
p = Circle(F, C_{1})
G = Point(e)
I = Point(k)
K = Point(i)
q = OrthogonalLine(I, f)
L = Intersect(f, q)
r = Circle(I, L)
s = Circle(K, C)
t = Line(G, S_1)
M = Intersect(k_1, t, 2)
c_1 = Circle(G, M)
N = Intersect(k_1, t, 1)
d_1 = Circle(G, N)
vzdalenostGS6 = Distance(G, S_2)
Midpoint(G, S_2)
TextGS6: Name[G] + (Name[S_2]) + " = " + vzdalenostGS6
vzdalenostGS5 = Distance(G, S_1)
Midpoint(G, S_1)
TextGS5: Name[G] + (Name[S_1]) + " = " + vzdalenostGS5