A_{1} = (5.5, -2.86)
B_{1} = (22.04, -4.54)
f = Line(A_{1}, B_{1})
C_{1} = (9.18, 3.36)
g = Line(C_{1}, f)
A = (17.04, 1.38)
E = Point(g)
a = Circle(A, E)
n = 1 (slider from 1 to 13, step 1)
F = Point(g)
h = OrthogonalLine(F, g)
G = Intersect(f, h)
i = LineBisector(F, G)
H = Point(i)
I = Point(g)
d_{1} = Circle(H, I)
j = Line(A, i)
b = Circle(A, Radius[d_{1}])
B = Intersect(b, j, 1)
c = Circle(B, Radius[a])
C = Intersect(c, j, 1)
d = Circle(A, C)
S_1 = Intersect(d, i, 1)
M = Point(a)
k_1 = Circle(S_1, M)
S_2 = Intersect(d, i, 2)
k_2 = Circle(S_2, Radius[k_1])
l = OrthogonalLine(A, g)
S_3 = Intersect(i, l)
k_3 = Circle(S_3, Radius[k_1])