C:\Users\dominik\Downloads\kkp_dotykajici_se_kruznice_vnejsi_dotyk_primka_prochazi_obema_kruznicemi_eukl

A_{2} = (2.24, -1.46)
B_{2} = (8.96, -2.74)
p = Line(A_{2}, B_{2})
A = (12.51992659072352, -3.573810931146808)
C = (12.976832992412206, -3.8329518753881526)
g_{3} = Line(A, C)
a = Circle(A, C)
B = Point(g_{3})
b = Circle(B, C)
krok = 0 (slider from 0 to 9, step 1)
c = Circle(C, B)
b' = Mirror(b, c)
c'_{1} = Mirror(a, c)
p' = Mirror(p, c)
Q = Point(c'_{1})
R = Point(c'_{1})
a' = Line(Q, R)
S = Center(p')
q = OrthogonalLine(S, a')
T = Intersect(p', q, 2)
k'_2 = OrthogonalLine(T, q)
r_1 = Mirror(k'_2, c)
U = Intersect(p', q, 1)
k'_1 = OrthogonalLine(U, q)
s_1 = Mirror(k'_1, c)
Z = Intersect(a', q)
A_1 = Intersect(b', q, 1)
B_{1} = Midpoint(Z, A_1)
n = OrthogonalLine(B_{1}, q)
h = Circle(S, Radius[p'] + Distance[A_1, B_{1}])
C_1 = Intersect(h, n, 2)
D_1 = Intersect(h, n, 1)
o = Circle(C_1, Segment[B_{1}, A_1])
p_{1} = Circle(D_1, Segment[B_{1}, A_1])
e_2 = Circle(S, Distance[A_1, B_{1}] - Radius[p'])
E_1 = Intersect(e_2, n, 2)
F_1 = Intersect(e_2, n, 1)
f_2 = Circle(E_1, Segment[B_{1}, A_1])
g_2 = Circle(F_1, Segment[B_{1}, A_1])
h_2 = Mirror(o, c)
p_2 = Mirror(p_{1}, c)
g = Circle(S, Radius[p'] - Distance[A_1, B_{1}])
F = Intersect(g, n, 2)
G = Intersect(g, n, 1)
h_{1} = Circle(F, Distance[B_{1}, A_1])
k = Circle(G, Distance[B_{1}, A_1])
h' = Mirror(h_{1}, c)
k' = Mirror(k, c)