Section d'un parallélépipède rectangle par un plan parallèle à une face

Section d'un parallélépipède rectangle
suivant un plan parallèle à une face

A = (-0.5659753026135377, -5.042247324780959)
B = (6.849395838169826, -2.9159238664722977, 0)
f = Segment(A, B)
g = OrthogonalLine(A, f, xOyPlane)
h = OrthogonalLine(B, f, xOyPlane)
C = Point(h)
i = OrthogonalLine(C, h, xOyPlane)
D = Intersect(g, i)
poly1, a, b, c, d = Polygon(A, B, C, D)
e, E, F, G, H, faceABFE, faceBCGF, faceCDHG, faceADHE, faceEFGH, arêteAE, arêteBF, arêteCG, arêteDH, arêteEF, arêteFG, arêteGH, arêteEH = Prism(poly1, 5.851718178957464)
α = Angle(A, D, C, xOyPlane)
β = Angle(B, A, D, xOyPlane)
γ = Angle(C, B, A, xOyPlane)
δ = Angle(D, C, B, xOyPlane)
j = Line(A, B)
I = Point(j)
k = Plane(I, faceBCGF)
l = IntersectPath(k, faceEFGH)
J, K = Intersect(k, faceEFGH)
m = IntersectPath(k, faceABFE)
L, M = Intersect(k, faceABFE)
n = IntersectPath(k, faceCDHG)
N, O = Intersect(k, faceCDHG)
p = IntersectPath(k, poly1)
P, Q = Intersect(k, poly1)
R = Intersect(l, n)
poly2, k_1, j_1, n_1, i_1 = Polygon(K, J, N, I)