A = (-3.7254980000000013, -1.759448000000002)
B = (2.762431109575779, -3.4014516657223197)
a = Segment(A, B)
b = OrthogonalLine(B, a)
C = Point(b)
c = OrthogonalLine(C, b)
d = OrthogonalLine(A, a)
D = Intersect(c, d)
poly1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
e = OrthogonalLine(A, poly1)
E = Point(e)
g, J, K, L, M, faceABKJ, faceBCLK, faceCDML, faceADMJ, faceJKLM, arêteAJ, arêteBK, arêteCL, arêteDM, arêteJK, arêteKL, arêteLM, arêteJM = Prism(poly1, Distance[A, E])
f = Line(E, K)
P = Point(arêteJK)
R = Point(a)
h = Line(P, arêteKL)
S = Intersect(arêteLM, h)
i = Plane(R, P, S)
poly2, F, G, H, I, j, k, l, m = IntersectPath(i, g)