A = (1, 1)
B = (1, 5)
F = (7, 1)
AB = Segment(A, B)
AF = Segment(A, F)
D = Point(AF)
a = OrthogonalLine(D, AF)
b = OrthogonalLine(B, AB)
C = Intersect(b, a)
AireABCD, a_1, b_1, c, d = Polygon(A, B, C, D)
AireDCF, f, d_1, c_1 = Polygon(D, C, F)
AD = Segment(A, D)
Curve(x) = NaN
distanceAB = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " = " + distanceAB
distanceAF = Distance(A, F)
TexteAF: Name[A] + (Name[F]) + " = " + distanceAF