A = Intersect(yAxis, xAxis)
B_1 = Point(xAxis)
B = Point(xAxis)
D_1 = Point(Circle[B_1, Distance[A, B_1], Segment[A, B_1]])
a, E, F, G, H, I, faceABDE, faceAEIF, faceABGF, faceBDHG, faceDEIH, faceFGHI, arestaAE, arestaAB, arestaBD, arestaDE, arestaAF, arestaEI, arestaFI, arestaFG, arestaBG, arestaGH, arestaDH, arestaHI = Cube(A, B_1, D_1)
C = Point(Circle[B, Distance[B_1, B], Segment[B_1, B]])
b, K, L, M, D, O, faceBCJK, faceBKOL, faceBCML, faceCJNM, faceJKON, faceLMNO, arestaBK, arestaBC, arestaCJ, arestaJK, arestaBL, arestaKO, arestaLO, arestaLM, arestaCM, arestaMN, arestaJN, arestaNO = Cube(B_1, B, C)
f = Segment(A, D)
g = Segment(A, C)
h = Segment(A, B)
i = Segment(B, C)
j = Segment(C, D)
k = Segment(D, B)
t1, n, c, j_1 = Polygon(B, C, D)
t2, j_2, c_1, a_1 = Polygon(B, A, C)
t3, d, a_2, b_1 = Polygon(A, B, D)
t4, c_2, a_3, d_1 = Polygon(A, D, C)