E = Intersect(zAxis, yAxis)
A = Point(xAxis)
D = Point(Circle[A, Distance[E, A], Segment[E, A]])
a, H, F, B, C, G, 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(E, A, D)
w = Vector(A, E)