S_1 = (14.696061553451257, -6.449097164151741)
B = (12.751422494431555, -6.484454237952099)
k_2 = Circle(S_1, B)
f = Line(S_1, B)
C = Point(f)
k_1 = Circle(S_1, C)
S_4 = Midpoint(B, C)
e = Circle(S_1, S_4)
E = Intersect(k_1, f, 2)
S_5 = Midpoint(B, E)
g = Circle(S_1, S_5)
S_3 = Point(f)
k_3 = Circle(S_3, B)
a = 0 (slider from 0 to 6, step 1)
k_4 = Circle(S_4, C)
k_5 = Circle(S_5, B)
c = Circle(B, Segment[S_4, B])
A = Intersect(c, f, 1)
d = Circle(S_3, A)
h = Circle(B, Segment[S_5, B])
D = Intersect(h, f, 2)
k = Circle(S_3, D)
S_6, S_7 = Intersect(e, d)
k_7 = Circle(S_7, Radius[k_4])
k_6 = Circle(S_6, Radius[k_4])
S_9, S_8 = Intersect(g, k)
k_8 = Circle(S_8, Radius[k_5])
k_9 = Circle(S_9, Radius[k_5])