Plier/Déplier

Rectangle et axes de symétrie 

A_1 = (0.24, 1.76)
A = (-2.06, 4.48)
c = Circle(A_1, A)
B = Point(c)
C = Mirror(A, A_1)
D = Mirror(B, A_1)
poly1, a, b, c_1, d = Polygon(A, B, C, D)
M = (-0.5, -0.96)
N = (1.1400000000000001, 4.44)
f = Line(M, N)
E = Intersect(f, a)
H = Intersect(f, b)
F = Intersect(f, c_1)
G = Intersect(f, d)
poly2 = If(Defined[E] ∧ Defined[G], Polygon[A, E, G], If[Defined[E] ∧ Defined[F], Polygon[E, A, D, F], If[Defined[E] ∧ Defined[H], Polygon[B, E, H], If[Defined[G] ∧ Defined[F], Polygon[G, D, F], If[Defined[G] ∧ Defined[H], Polygon[G, D, C, H], If[Defined[F] ∧ Defined[H], Polygon[F, C, H], Polygon[A, D, C, B]]]]]])
poly3 = If(Defined[E] ∧ Defined[G], Polygon[Mirror[A, f], E, G], If[Defined[E] ∧ Defined[F], Polygon[E, Mirror[A, f], Mirror[D, f], F], If[Defined[E] ∧ Defined[H], Polygon[Mirror[B, f], E, H], If[Defined[G] ∧ Defined[F], Polygon[G, Mirror[D, f], F], If[Defined[G] ∧ Defined[H], Polygon[G, Mirror[D, f], Mirror[C, f], H], If[Defined[F] ∧ Defined[H], Polygon[F, Mirror[C, f], H], Polygon[Mirror[A, f], Mirror[D, f], Mirror[C, f], Mirror[B, f]]]]]]])
e = false