Z_1 = (2.38, 3.62)
S_4 = (3.8655989439264737, 2.5914736209795235)
h_1 = Circle(Z_1, S_4)
f = Line(Z_1, S_4)
Z_2 = Point(f)
h_2 = Circle(Z_2, S_4)
e = Hyperbola(Z_1, Z_2, S_4)
Z_3 = Point(e)
g = Line(Z_1, Z_3)
E = Intersect(h_1, g, 2)
h_3 = Circle(Z_3, E)
F, G, H, I = Intersect(h_3, e)
k_4 = Circle(S_4, I)
c' = Mirror(h_1, k_4)
h' = Mirror(h_3, k_4)
d' = Mirror(h_2, k_4)
J = Intersect(h', c')
K = Intersect(h', d')
Krok = 0 (slider from 0 to 5, step 1)
h = LineBisector(K, J)
B, C = Intersect(h', h)
D = Point(d')
i = OrthogonalLine(D, h)
L = Intersect(h, i)
M = Intersect(d', h)
N = Intersect(h', h, 1)
O = Point(d')
P = Point(h)
j = Line(P, N)
k = OrthogonalLine(O, j)
Q = Intersect(k, j)
c = Circle(N, Segment[Q, O])
R, S = Intersect(c, j)
T, U = Intersect(h', j)
d = Circle(U, Radius[c])
V, W = Intersect(d, j)
k_6 = Circle(V, Radius[d])
k_5 = Circle(S, Radius[c])
k_1 = Mirror(k_5, k_4)
k_2 = Mirror(k_6, k_4)
S_1 = Center(k_1)
S_2 = Center(k_2)