section-plane1
Author: devouges

A = (-0.2538989423185569, -2.6802341319162615, 0)
B = (3.899041587288444, -2.713338130007589, 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 = Point(arêteEF)
J = Point(arêteEH)
K = Point(arêteDH)
b = Line(K, J)
c = Line(A, E)
L = Intersect(c, b)
d = Segment(I, J)
e = Segment(J, K)
f = Line(L, I)
M = Intersect(f, arêteBF)
g = Segment(I, M)
h = Line(A, B)
O = Intersect(h, f)
i = Line(A, D)
P = Intersect(i, b)
j = Line(O, P)
Q = Intersect(arêteBC, j)
R = Intersect(arêteCD, j)
k = Segment(M, Q)
l = Segment(Q, R)
m = Segment(R, K)