Číslo kroku

A_{1} = Point(xAxis)
B_{1} = Point(xAxis)
f = Line(A_{1}, B_{1})
C_{1} = (-1.5935286091019805, 6.104181037240842)
g = Line(C_{1}, f)
D = (4.32, 3.16)
h = OrthogonalLine(D, g)
E = Intersect(g, h)
F = Intersect(f, h)
A = Midpoint(E, F)
a = Circle(A, E)
i = LineBisector(E, F)
B = Intersect(a, i, 1)
d = Circle(B, Radius[a])
S_1 = Intersect(d, i, 1)
k_1 = Circle(S_1, Radius[a])
C = Intersect(a, i, 2)
k = Circle(C, Radius[a])
S_2 = Intersect(k, i, 2)
k_2 = Circle(S_2, Radius[a])
n = 0 (slider from 0 to 6, step 1)