A: (0, 0, 0)
B: (10, 0, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, edgeAD, edgeAB, edgeBC, edgeCD, edgeAE, edgeDH, edgeEH, edgeEF, edgeBF, edgeFG, edgeCG, edgeGH = Cube(A, B, C)
I = Midpoint(E, F)
J = Midpoint(F, B)
K = Midpoint(B, C)
L = Midpoint(C, D)
M = Midpoint(D, H)
N = Midpoint(H, E)
poly1, n, i, j, k, l, m = Polygon(N, I, J, K, L, M)