Číslo kroku

S_2 = (-5.7125215960785, 13.849766574893547)
S_! = (-69.19590078362214, 97.48659947276876)
l_1 = Line(S_!, S_2)
A_{1} = (-82.11697593088418, -23.787275338914764)
B = (105.25734252168532, -12.324375857110502)
p = Line(A_{1}, B)
A = Point(l_1)
k_1 = Circle(S_!, A)
k_2 = Circle(S_2, A)
krok = 0 (slider from 0 to 7, step 1)
F = (-99.25621505992805, 38.046249750433255)
e = Circle(A, F)
f' = Mirror(p, e)
C = Intersect(k_1, e, 2)
D = Intersect(k_1, e, 1)
g = Line(C, D)
E = Intersect(k_2, e, 1)
G = Intersect(k_2, e, 2)
h = Line(E, G)
i = AngularBisector(g, h)
S_3 = Center(f')
H = Intersect(l_1, g)
I = Intersect(i, l_1)
c = Circle(A, Distance[H, I])
j = Line(S_3, A)
J = Intersect(c, j, 2)
d = Circle(S_3, J)
S_4 = Intersect(d, i, 1)
S_{1} = Intersect(d, i, 2)
k = OrthogonalLine(S_4, h)
l = OrthogonalLine(S_{1}, h)
K = Intersect(h, l)
p_{1} = Circle(S_{1}, K)
L = Intersect(h, k)
q = Circle(S_4, L)
m = OrthogonalLine(S_3, h)
M = Intersect(f', m, 1)
N = Intersect(f', m, 2)
n = Line(N, i)
r = Line(M, n)
k_5 = Mirror(n, e)
k_8 = Mirror(r, e)
k_6 = Mirror(p_{1}, e)
k_7 = Mirror(q, e)
S_5 = Center(k_5)
S_6 = Center(k_6)
S_8 = Center(k_8)
S_7 = Center(k_7)