A = (-1.66, 4.68)
B = (4.48, 4.7)
C = (6.8, 1.12)
D = (-2.48, 1.1)
poli1, a, b, c, d = Polygon(A, B, C, D)
e = Line(D, C)
f = Line(B, A)
g = OrthogonalLine(A, c)
h = OrthogonalLine(B, c)
E = Intersect(c, e)
F = Intersect(c, h)
G = Intersect(e, g)
distanzaAG = Distance(A, G)
TestoAG: "\overline{" + (Name[A]) + (Name[G]) + "} \, = \, " + distanzaAG
distanzaBF = Distance(B, F)
TestoBF: "\overline{" + (Name[B]) + (Name[F]) + "} \, = \, " + distanzaBF