A bewegen

L = 7.5 (slider from 0 to 10, step 0.1)
A = Point(xAxis)
c = Circle(A, L)
B = Intersect(c, yAxis, 2)
a = Segment(B, A)
P = Point(a)
b = OrthogonalLine(P, xAxis)
d = Circle(P, 0.3)
C = Intersect(d, b, 2)
e = Circle(C, P)
f = Circle(P, 1.5)
h = Circle(P, 2.8)
g = OrthogonalLine(P, xAxis)
D = Point(g)
E = (3.91796242533723, 5.536844508465649)
i = OrthogonalLine(P, xAxis)
G = Point(i)
m_1 = OrthogonalLine(G, b)
n_1, p_1 = AngularBisector(b, m_1)
T = Point(b)