constr

A = (-3.295245746353974, 3.2333497222774272)
E = (-3.3861696332863636, 2.1240783017022746)
c = Circle(A, E)
B = Point(c)
M = Midpoint(B, E)
AE_{1} = Segment(E, A)
Bi = Line(B, AE_{1})
C = Mirror(A, Bi)
CM = Segment(M, C)
D = Mirror(B, CM)
P1, AB, BC, CD, DE, AE = Polygon(A, B, C, D, E)
A'_{3} = Mirror(A, DE)
B' = Mirror(B, DE)
N = Midpoint(C, D)
A' = Mirror(A, N)
P = Midpoint(B', A')
A'' = Mirror(A'_{3}, N)
u = Vector(B', A'')
Δ = Line(P, u)
BE = Segment(B, E)
a = false
C' = Mirror(C, DE)
D' = Mirror(D, DE)
E' = Mirror(E, DE)
P2, a', b', c', d', e' = Polygon(A'_{3}, B', C', D', E')
B'_{1} = Mirror(B, N)
C'_{1} = Mirror(C, N)
D'_{1} = Mirror(D, N)
E'_{1} = Mirror(E, N)
P3, a'_{1}, b'_{1}, c'_{1}, d'_{1}, e'_{1} = Polygon(A', B'_{1}, C'_{1}, D'_{1}, E'_{1})
B'' = Mirror(B', N)
C'' = Mirror(C', N)
D'' = Mirror(D', N)
E'' = Mirror(E', N)
P4, a'', b'', c'', d'', e'' = Polygon(A'', B'', C'', D'', E'')
C''' = Mirror(C'', e'')
D''' = Mirror(D'', e'')
A''_{1} = Translate(A'_{3}, u)
B''_{1} = Translate(B', u)
C''_{1} = Translate(C', u)
D''_{1} = Translate(D', u)
E''_{1} = Translate(E', u)
poly1''_{1}, a''_{1}, b''_{1}, c''_{1}, d''_{1}, e''_{1} = Polygon(A''_{1}, B''_{1}, C''_{1}, D''_{1}, E''_{1})
F = Translate(A', u)
G = Translate(B'_{1}, u)
H = Translate(C'_{1}, u)
I = Translate(D'_{1}, u)
J = Translate(E'_{1}, u)
poly2, f, g, h, i, j = Polygon(F, G, H, I, J)
A'_{2} = Translate(A, u)
B'_{2} = Translate(B, u)
C'_{2} = Translate(C, u)
D'_{2} = Translate(D, u)
E'_{2} = Translate(E, u)
poly1'_{2}, a'_{2}, b'_{2}, c'_{2}, d'_{2}, e'_{2} = Polygon(A'_{2}, B'_{2}, C'_{2}, D'_{2}, E'_{2})
A''' = Translate(A'', u)
B''' = Translate(B'', u)
C'''_{1} = Translate(C'', u)
D'''_{1} = Translate(D'', u)
E''' = Translate(E'', u)
poly1''', a''', b''', c'''_{1}, d'''_{1}, e''' = Polygon(A''', B''', C'''_{1}, D'''_{1}, E''')
j_1 = Segment(B', A')
P1_s = Translate(Polygon[Mirror[A, Δ], Mirror[B, Δ], Mirror[C, Δ], Mirror[D, Δ], Mirror[E, Δ]], Vector[u / 2])
P2_s = Translate(Polygon[Mirror[A'_{3}, Δ], Mirror[B', Δ], Mirror[C', Δ], Mirror[D', Δ], Mirror[E', Δ]], Vector[u / 2])
P3_s = Translate(Polygon[Mirror[A', Δ], Mirror[B'_{1}, Δ], Mirror[C'_{1}, Δ], Mirror[D'_{1}, Δ], Mirror[E'_{1}, Δ]], Vector[u / 2])
P4_s = Translate(Polygon[Mirror[A'', Δ], Mirror[B'', Δ], Mirror[C'', Δ], Mirror[D'', Δ], Mirror[E'', Δ]], Vector[u / 2])
B_s = Translate(Mirror[B, Δ], Vector[u / 2])
v = Vector(E, B_s)
A'_{1} = Translate(A, v)
B'_{3} = Translate(B, v)
C'_{3} = Translate(C, v)
D'_{3} = Translate(D, v)
E'_{3} = Translate(E, v)
P1', k, b'_{3}, c'_{3}, d'_{3}, e'_{3} = Polygon(A'_{1}, B'_{3}, C'_{3}, D'_{3}, E'_{3})
A'''_{1} = Translate(A'', v)
B'''_{1} = Translate(B'', v)
C'''_{2} = Translate(C'', v)
D'''_{2} = Translate(D'', v)
E'''_{1} = Translate(E'', v)
P4', a'''_{1}, b'''_{1}, c'''_{2}, d'''_{2}, e'''_{1} = Polygon(A'''_{1}, B'''_{1}, C'''_{2}, D'''_{2}, E'''_{1})
A''_{2} = Translate(A', v)
K = Translate(B'_{1}, v)
L = Translate(C'_{1}, v)
O = Translate(D'_{1}, v)
Q = Translate(E'_{1}, v)
P3', a''_{2}, k_1, l, o, q = Polygon(A''_{2}, K, L, O, Q)
R = Translate(A'_{3}, v)
B''_{2} = Translate(B', v)
C''_{2} = Translate(C', v)
D''_{2} = Translate(D', v)
E''_{2} = Translate(E', v)
P2', r, b''_{2}, c''_{2}, d''_{2}, e''_{2} = Polygon(R, B''_{2}, C''_{2}, D''_{2}, E''_{2})
m = Segment(A, C)
n = Segment(B, D)
S = Point(Bi)
α = Angle(A, B, S)
β = Angle(S, B, C)
γ = Angle(B, C, M)
δ = Angle(M, C, D)