A = Intersect(yAxis, xAxis)
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_{1} = Midpoint(A, E)
N_{1} = Midpoint(B, F)
N = Midpoint(C, G)
P = Midpoint(D, H)
Q = Midpoint(E, F)
R = Midpoint(F, G)
S = Midpoint(G, H)
T = Midpoint(H, E)
f = Line(F, K)
g = Line(G, I)
M = Midpoint(N_{1}, M_{1})
h = Line(N, M)