KKKinverze

krok = 0 (slider from 0 to 6, step 1)
S_1 = Point(xAxis)
k_1 = Circle(S_1, 5)
S_2 = Point(Circle[S_1, 10])
f = Segment(S_1, S_2)
W = Intersect(k_1, f, 1)
k_2 = Circle(S_2, W)
g = OrthogonalLine(W, f)
r = Circle(S_1, 10)
S_3 = Intersect(r, g, 1)
k_3 = Circle(S_3, 5)
h = Segment(S_3, S_2)
D = Intersect(k_2, k_3, 1)
i = OrthogonalLine(D, h)
E = Intersect(k_1, i, 1)
d = Circle(D, E)
a' = Mirror(k_1, d)
F, G = Intersect(a', i)
c' = Mirror(k_3, d)
b' = Mirror(k_2, d)
j = OrthogonalLine(F, i)
k = OrthogonalLine(G, i)
e = Circle(F, Radius[a'])
H = Intersect(b', k, 1)
p = Circle(G, H)
I, J = Intersect(e, i)
K, L = Intersect(p, i)
q = Circle(I, F)
s = Circle(L, G)
k_5 = Mirror(s, d)
k_4 = Mirror(q, d)
M = Intersect(b', h)
S = Center(k_5)