A = (-4.320078696105099, 0.7788889295875663, 0)
B = (-0.5164018760003621, 2.283296669596208, 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(arêteAB)
J = Midpoint(arêteBC)
K = Midpoint(arêteEF)
L = Midpoint(arêteGH)