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