A: (0, 0, 0)
B: (1, 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)
f = Segment(E, B)
g = Segment(F, A)
h = Segment(F, C)
i = Segment(G, B)
I = Intersect(f, g)
J = Intersect(h, i)
j = Segment(I, J)