A = Intersect(xAxis, yAxis)
B = Point(yAxis)
C = Point(xAxis)
f = Segment(B, C)
D = Point(f)
P: (x(D), 0)
g = OrthogonalLine(D, yAxis)
h = OrthogonalLine(D, xAxis)
E = Intersect(yAxis, g)
q1, a, e, d, p = Polygon(A, E, D, P)
A1: a
A2: e
A3: d
A4: A1 + A2 + A3
texte2: "Aire = " + q1 + ""
M: (x(D), q1)
texte1: "Longueur = " + (LaTeX[a]) + "+" + (LaTeX[e]) + "+" + (LaTeX[d]) + " = " + (LaTeX[A4]) + ""