A = Intersect(yAxis, zAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, FlächeABCD, FlächeADHE, FlächeABFE, FlächeBCGF, FlächeCDHG, FlächeEFGH, KanteAD, KanteAB, KanteBC, KanteCD, KanteAE, KanteDH, KanteEH, KanteEF, KanteBF, KanteFG, KanteCG, KanteGH = Cube(A, B, C)
I = Midpoint(A, B)
J = Midpoint(B, C)
K = Midpoint(C, D)
L = Midpoint(D, A)
M = Midpoint(A, E)
N = Midpoint(B, F)
O = Midpoint(C, G)
P = Midpoint(D, H)
Q = Midpoint(E, F)
R = Midpoint(F, G)
S = Midpoint(G, H)
T = Midpoint(H, E)