KKKinverze

krok = 2 (slider from 0 to 6, step 1)
A = Point(xAxis)
a = Circle(A, 5)
B = Point(Circle[A, 10])
f = Segment(A, B)
W = Intersect(a, f, 1)
b = Circle(B, W)
g = OrthogonalLine(W, f)
r = Circle(A, 10)
C = Intersect(r, g, 1)
c = Circle(C, 5)
h = Segment(C, B)
D = Intersect(b, c, 1)
i = OrthogonalLine(D, h)
E = Intersect(a, i, 1)
d = Circle(D, E)
a' = Mirror(a, d)
F, G = Intersect(a', i)
c' = Mirror(c, d)
b' = Mirror(b, 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)
s' = Mirror(s, d)
q' = Mirror(q, d)
M = Intersect(b', h)