A: (0, 0, 0)
B: (4, 0, 0)
C: (4, 2, 0)
D: (0, 2, 0)
E: (4, 2, 4)
a, faceABCD, faceABE, faceBCE, faceCDE, faceADE, arêteAB, arêteBC, arêteCD, arêteAD, arêteAE, arêteBE, arêteCE, arêteDE = Pyramid(A, B, C, D, E)
b = 1 (slider from 0 to 1, step 0.01)
c, F, G, H, I, J, K, L, M, faceFGHI, faceFGJ, faceGHK, faceHIL, faceFIM, arêteFG, arêteGH, arêteHI, arêteFI, arêteFJ, arêteGJ, arêteGK, arêteHK, arêteHL, arêteIL, arêteIM, arêteFM = Net(a, b)
TextefaceFGJ: "Aire de  " + (Name[F]) + (Name[G]) + (Name[J]) + " = " + faceFGJ
PointfaceFGJ = PointIn(faceFGJ)
TextefaceGHK: "Aire de  " + (Name[G]) + (Name[H]) + (Name[K]) + " = " + faceGHK
PointfaceGHK = PointIn(faceGHK)
TextefaceHIL: "Aire de  " + (Name[H]) + (Name[I]) + (Name[L]) + " = " + faceHIL
PointfaceHIL = PointIn(faceHIL)
TextefaceFIM: "Aire de  " + (Name[I]) + (Name[F]) + (Name[M]) + " = " + faceFIM
PointfaceFIM = PointIn(faceFIM)