A = Intersect(xAxis, yAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH_{1}, arêteEF_{1}, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
J = Midpoint(arêteCG)
I = Midpoint(A, B)
p = Plane(F, H, I)
f = OrthogonalLine(E, p)
K = Intersect(f, p)
L = Midpoint(E, F)
b, faceEHFI, faceEEH, faceEFH, faceEFI, faceEEI, arêteEH, arêteFH, arêteFI, arêteEI, arêteEE, arêteEH, arêteEF, arêteEI = Pyramid(E, H, F, I, E)
t1, f_1, h, i = Polygon(H, I, F)
Textet1: "Aire de  " + (Name[H]) + (Name[I]) + (Name[F]) + " = " + t1
Pointt1 = PointIn(t1)