Section parallélépipède rectangle par un plan parallèle à une arête

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

A = (-0.5659753026135377, -5.042247324780959)
B = (7.576985675276188, -3.5451778619714247, 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)
ε = 1.5707963267948966 rad (slider from 5° to 170°, step 0.08726646259971647)
B' = Rotate(B, ε, I, xOyPlane)
ζ = Angle(B, I, B', xOyPlane)
k = Line(I, arêteBF)
J = Point(k)
l = Plane(I, B', J)
m = IntersectPath(l, poly1)
K, L = Intersect(l, poly1)
poly2, M, N, O, P, n, p, q, r = IntersectPath(l, e)