A = (2.88, -8.18)
B = (8.42, -1.86)
p_1 = Line(A, B)
C = (21.312685714285692, -6.545180952380968)
p_2 = Line(A, C)
D = Point(p_1)
h = OrthogonalLine(D, p_1)
S = Point(h)
k = Circle(S, D)
f = OrthogonalLine(D, p_1)
g, i = AngularBisector(p_1, p_2)
S_1 = Intersect(f, i)
k_1 = Circle(S_1, D)
S_2 = Intersect(f, g)
k_2 = Circle(S_2, D)
G = Mirror(S, p_1)
j = OrthogonalLine(G, f)
k_{7} = Parabola(S, j)
S_3, S_4 = Intersect(k_{7}, g)
l = Line(S_3, S)
m = Line(S_4, S)
J = Intersect(k, l, 1)
k_3 = Circle(S_3, J)
K = Intersect(k, m, 1)
k_4 = Circle(S_4, K)
a = 0 (slider from 0 to 6, step 1)
S_6, S_5 = Intersect(k_{7}, i)
n = Line(S_5, S)
p = Line(S_6, S)
E = Intersect(k, n, 1)
k_5 = Circle(S_5, E)
F = Intersect(k, p, 1)
k_6 = Circle(S_6, F)