A = (-1.9973004654662316, 1.8468634449284174)
B = Point(Circle[A, 6])
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = Circle(A, 4)
C = Intersect(c, b, 2)
d = Segment(A, C)
e = Segment(C, B)
D = Point(a)
f = OrthogonalLine(D, a)
E = Intersect(f, e)
poly1, d_1, a_1, e_1 = Polygon(A, E, D)
distanceED = Distance(E, D)
TexteED: Name[E] + (Name[D]) + " = " + distanceED
distanceAD = Distance(A, D)
TexteAD: Name[A] + (Name[D]) + " = " + distanceAD
distanceBD = Distance(B, D)
TexteBD: Name[B] + (Name[D]) + " = " + distanceBD