A = (3.48, -9.98)
B = (10.94, 2.48)
p_2 = Line(A, B)
C = (18.2, -9.72)
p_1 = Line(A, C)
D = Point(p_2)
h = OrthogonalLine(D, p_2)
S = Point(h)
k = Circle(S, D)
E = Intersect(p_2, p_1)
c = Circle(E, Radius[k])
f, g = Tangent(p_2, c)
i, j = Tangent(p_1, c)
l = OrthogonalLine(S, g)
m, n = AngularBisector(p_2, p_1)
S_2 = Intersect(l, n)
k_2 = Circle(S_2, D)
S_1 = Intersect(l, m)
k_1 = Circle(S_1, D)
F = Point(m)
p = OrthogonalLine(F, f)
G = Intersect(f, p)
q = Circle(F, G)
H = Intersect(f, j)
r = Line(H, S)
I = Intersect(p_2, r)
J = Intersect(q, m, 2)
K = Intersect(q, r, 2)
s = Line(K, F)
L = Intersect(q, r, 1)
t = Line(L, F)
a_{1} = Line(S, t)
b = Line(S, s)
S_3 = Intersect(m, b)
N = Intersect(k, b, 2)
k_3 = Circle(S_3, N)
S_4 = Intersect(m, a_{1})
P = Intersect(k, a_{1}, 2)
k_4 = Circle(S_4, P)
a = 0 (slider from 0 to 13, step 1)