Qué pereza...

∞   1    6
3    5     7
4    9     2

O = (-1.310653160830342, 3.044252904818412)
P = (1.546046646566486, 3.0319051116124527)
Q = (-0.19341968085055555, 3.8845846838757083)
p = Ellipse(O, P, Q)
S = Point(p)
T = Point(p)
R = (-0.6334023401383958, 1.5959927119211326)
i = Segment(R, S)
j = Segment(R, T)
A = (-1.083617154293395, 0.9957062930478002)
k = 0.73 (slider from -5 to 5, step 0.01)
polígono1, a, b, c, d, B, C = Polygon(A, A + (k, 0), 4)
C' = Mirror(C, A)
C'' = Mirror(C', A)
A' = Mirror(A, C')
D: A' + (k, 0)
A'' = Mirror(A', D)
E = Midpoint(A, A'')
A''_1 = Mirror(A', E)
C''_1 = Mirror(C', E)
F = Mirror(C''_1, A''_1)
B' = Mirror(B, F)
D' = Mirror(D, E)
D'_1 = Mirror(D, A'')
e = Segment(C, B')
f = Segment(C, A')
g = Segment(A', D'_1)
h = Segment(D'_1, B')
l = Segment(B, D)
m = Segment(F, A'')
G = Point(h)
n = Segment(A, G)
E' = Mirror(E, C''_1)
q = Segment(C', E')