A = (3, -3)
B = (20, -3)
f = Segment(A, B)
T = Point(f)
c = Circle(B, Distance[A, T])
d = Circle(T, Distance[A, T])
g = OrthogonalLine(T, f)
R = Intersect(d, g, 2)
C = Intersect(c, f, 1)
h = OrthogonalLine(C, f)
i = OrthogonalLine(R, g)
E = Intersect(h, i)
q1, t, r, e, c_1 = Polygon(T, R, E, C)
distanceAT = Distance(A, T)
Midpoint(A, T)
TexteAT: Name[A] + (Name[T]) + " = " + distanceAT