Bouger le point $C$ et observer.

A = Intersect(xAxis, yAxis)
B = Point(yAxis)
a = Segment(A, B)
C = Point(a)
b = OrthogonalLine(A, a)
c = OrthogonalLine(C, a)
distanceAC = Distance(A, C)
TexteAC: Name[A] + (Name[C]) + " \, = \, " + distanceAC
d: 4 * Distance[A, C]
D: (d, 0)
e = OrthogonalLine(D, b)
E = Intersect(c, e)
poly1, c_1, e_1, d_1, a_1 = Polygon(C, E, D, A)
Textepoly1: "Aire de  " + (Name[C]) + "" + (Name[E]) + "" + (Name[D]) + "" + (Name[A]) + " = " + poly1 + ""