A = Intersect(xAxis, yAxis)
B = (6, 0, 1.7763568394002505E-15)
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)
P6 = Midpoint(H, E)
P1 = Midpoint(E, F)
P2 = Midpoint(F, B)
P3 = Midpoint(B, C)
P4 = Midpoint(C, D)
P5 = Midpoint(D, H)
Vieleck1, p1, p2, p3, p4, p5, p6 = Polygon(P1, P2, P3, P4, P5, P6)
I = Midpoint(F, G)
D1 = Midpoint(I, F)
K_{1} = Midpoint(G, H)
D3 = Midpoint(K_{1}, H)
M = Midpoint(G, C)
D2 = Midpoint(M, C)
d1, l, j, n = Polygon(D1, D2, D3)
f = Segment(A, G)
J = Intersect(f, Vieleck1)
L_{1} = Intersect(f, d1)
K = Midpoint(P1, P2)
L = Midpoint(F, A)
g = Segment(K, A)
h = Segment(L, D)