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 = 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)
d1, r, o, s = Polygon(O, S, R)
d2, k, o_1, j = Polygon(O, J, K)
d3, t, s_1, p = Polygon(S, P, T)
d4, p_1, l, k_1 = Polygon(L, K, P)
d5, j_1, i, n = Polygon(I, N, J)
d6, q, n_1, r_1 = Polygon(N, R, Q)
d7, t_1, q_1, m = Polygon(Q, M, T)
d8, i_1, l_1, m_1 = Polygon(L, M, I)
v1, s_2, t_2, q_2, r_2 = Polygon(S, T, Q, R)
v2, l_2, m_2, t_3, p_2 = Polygon(L, M, T, P)
v3, k_2, p_3, s_3, o_2 = Polygon(K, P, S, O)
v4, m_3, i_2, n_2, q_3 = Polygon(M, I, N, Q)
v5, n_3, j_2, o_3, r_3 = Polygon(N, J, O, R)
v6, i_3, l_3, k_3, j_3 = Polygon(I, L, K, J)