A: (0, 0, 0)
B: (4, 0, 0)
C: (0, 4, 0)
D: (0, 0, 2)
a, faceABC, faceABD, faceBCD, faceACD, arêteAB, arêteBC, arêteAC, arêteAD, arêteBD, arêteCD = Pyramid(A, B, C, D)
b = 1 (slider from 0 to 1, step 0.01)
c, E, F, G, H, I, J, faceEFG, faceEFH, faceFGI, faceEGJ, arêteEF, arêteFG, arêteEG, arêteEH, arêteFH, arêteFI, arêteGI, arêteGJ, arêteEJ = Net(a, b)
TextefaceEFH: "Aire de  " + (Name[E]) + (Name[F]) + (Name[H]) + " = " + faceEFH
PointfaceEFH = PointIn(faceEFH)
TextefaceEGJ: "Aire de  " + (Name[G]) + (Name[E]) + (Name[J]) + " = " + faceEGJ
PointfaceEGJ = PointIn(faceEGJ)
TextefaceFGI: "Aire de  " + (Name[F]) + (Name[G]) + (Name[I]) + " = " + faceFGI
PointfaceFGI = PointIn(faceFGI)
TextefaceEFG: "Aire de  " + (Name[E]) + (Name[F]) + (Name[G]) + " = " + faceEFG
PointfaceEFG = PointIn(faceEFG)