A = Point(xAxis)
B = (1, 1, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arestaAD, arestaAB, arestaBC, arestaCD, arestaAE, arestaDH, arestaEH, arestaEF, arestaBF, arestaFG, arestaCG, arestaGH = Cube(A, B, C)
I = PointIn(faceABFE)
J = PointIn(faceABFE)
K = PointIn(faceABFE)
q1, a_1, i, j, k = Polygon(A, I, J, K)
L = PointIn(faceABFE)
M = Point(arestaBF)
N = PointIn(faceABFE)
O = PointIn(faceABFE)
q2, l, m, n, o = Polygon(L, M, N, O)
P = Point(arestaGH)
t1, p, e, f = Polygon(E, F, P)
t2, p_1, e_1, h = Polygon(E, H, P)