A: (0, -2, 0)
B: (2, 0, 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 = (-3.4641131567433705, 2.0362253580145264, 0)
J = (0.5184572950858675, -2.863344560496941, 0)
K = Point(zAxis)
p = Plane(K, I, J)
poly1, L, M, N, O, P, f, g, h, i, j = IntersectPath(p, a)