S = (8.174504695051098, 1.533178234044364)
B = (3.874841795983105, 3.3320167938585326)
k_{2} = Circle(S, B)
C = (6.331792024021959, 1.7744858457267523)
k_1 = Circle(S, C)
a = 0 (slider from 0 to 6, step 1)
A = (0.2552276207472947, -2.327743552873852)
D = (18.331361441318858, 0.019521397127563383)
p = Line(A, D)
f = Line(S, C)
E = Intersect(k_{2}, f, 2)
c = Circle(S, (Distance[C, S] + Distance[E, S]) / 2)
g = Circle(S, (Distance[E, S] + Distance[C, S]) / 2 - Distance[C, S])
G = Point(k_{2})
h = Line(S, G)
F = Point(k_1)
i = Line(S, F)
H = Intersect(k_{2}, i, 2)
I = Intersect(k_1, i, 2)
J = Intersect(c, i, 2)
K = Intersect(g, i, 2)
j = OrthogonalLine(S, p)
L = Intersect(p, j)
d = Circle(L, Segment[J, F])
e = Circle(L, Segment[K, I])
M, N = Intersect(d, j)
O, P = Intersect(e, j)
k = Line(P, p)
l = Line(N, p)
S_3, S_4 = Intersect(c, l)
S_5, S_6 = Intersect(g, k)
k_3 = Circle(S_3, Segment[J, F])
k_4 = Circle(S_4, Radius[k_3])
k_5 = Circle(S_5, Segment[K, H])
k_6 = Circle(S_6, Radius[k_5])
q = Circle(J, F)
r = Circle(K, I)