A = (-3.9789197702180914, -4.62830879874199, 0)
B = (1.5933458159514338, -4.719755907255184, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
I = Midpoint(F, B)
J = Midpoint(E, A)
K = Midpoint(C, G)
poly1, j, b, k, h = Polygon(J, B, K, H)
poly2, j_1, i, g, h_1 = Polygon(J, I, G, H)