C:\Users\hogig\Downloads\kkk_dve_soustredne

O = (16.27038911393296, 0.9655195195985399)
S_3 = (12.845898839223283, -1.5626276630729974)
B_{1} = (10.386701125170028, -1.6430687097943646)
S_1 = (7.94, -0.64)
k_2 = Circle(S_1, B_{1})
C_{1} = (12.48, -2.52)
k_1 = Circle(S_1, C_{1})
S_{8} = (8.927270706082354, 1.2872837064840081)
f = Line(S_1, S_{8})
C = Intersect(k_2, f, 1)
A = Intersect(k_1, f, 2)
B = Intersect(k_2, f, 2)
S' = Midpoint(B, A)
d = Circle(S_1, S')
k_3 = Circle(S_3, O)
a = 0 (slider from 0 to 4, step 1)
I = Point(d)
i = Line(I, S_1)
M = Intersect(k_1, i, 1)
r = Circle(I, M)
g = Circle(S_3, Distance[S_3, O] + Distance[I, M])
e = Circle(S_3, Distance[S_3, O] - Distance[I, M])
S_4, S_7 = Intersect(d, g)
S_6, S_5 = Intersect(e, d)
k_4 = Circle(S_4, Radius[r])
k_5 = Circle(S_5, Radius[k_4])
k_6 = Circle(S_6, Radius[k_4])
k_7 = Circle(S_7, Radius[k_4])
D = Point(g)
h = Line(S_3, D)
F = Point(e)
j = Line(S_3, F)
G = Intersect(e, j, 2)
H = Intersect(g, h, 2)
E = Intersect(k_3, h, 2)
k = Circle(D, E)
J = Intersect(k_3, j, 2)
c = Circle(F, J)