On cherche à construire l'intersection M 
de la droite (FB) et du plan (AIG) et 
l'intersection P de la droite (HE) avec
le plan (DIG)

A = Intersect(yAxis, zAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a_{1}, 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, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
a = 1 (slider from -5 to 5)
I = Midpoint(E, A)
p = Plane(D, I, G)
J = Midpoint(arêteEF)