A = (-2.68, 4.74)
B = (-0.54, 4.74)
C = (3.9, 1.04)
D = (-2.68, 1.04)
poli1, a, b, c, d = Polygon(A, B, C, D)
e = OrthogonalLine(B, c)
E = Intersect(e, c)
F = Intersect(e, c)
f = Line(A, B)
g = Line(C, D)
distanzaBF = Distance(B, F)
TestoBF: "\overline{" + (Name[B]) + (Name[F]) + "} \, = \, " + distanzaBF
distanzaAD = Distance(A, D)
TestoAD: "\overline{" + (Name[A]) + (Name[D]) + "} \, = \, " + distanzaAD
α = Angle(F, D, A)