A = (-1.325339741654358, 2.1893406817378436)
B = (1.452749458039913, 3.973434663192882)
D = (-1.1214432866309252, -2.245407215021823)
C = (3.77207163393146, -2.576738954434902)
f = Segment(A, C)
g = Segment(B, D)
O = Intersect(f, g)
c_{AC} = Circle(Midpoint[A, C], A)
c_{BD} = Circle(Midpoint[B, D], B)
h = OrthogonalLine(O, f)
K = Intersect(c_{AC}, h, 2)
i = OrthogonalLine(O, g)
K' = Intersect(c_{BD}, i, 2)
j = Line(C, A)
k = Line(B, D)
K'_{1} = Rotate(K, 90°, O)
K'' = Rotate(K', 90°, O)
l = Line(K'_{1}, K'')
m = Line(A, l)
n = Line(C, l)
p = Line(A, D)
U = Intersect(n, p)
q = Line(U, O)
r = Line(B, l)
V = Intersect(q, r)
U' = Intersect(p, r)
t = Line(U', O)
V' = Intersect(n, t)
a = Line(V', D)
b = Line(D, l)
b' = Mirror(b, a)
s = Line(V, A)
m' = Mirror(m, s)
F = Intersect(b', m')
F' = Mirror(F, s)
c = OrthogonalLine(F', l)
d = Parabola(F, c)
P_1 = (-5.2758335577333675, 0.6346302121841673)
P_2 = (-0.229396295903407, -0.28290383542128106)
pli1 = LineBisector(P_1, P_2)
M_2, M_1 = Intersect(d, pli1)
f_1 = Segment(P_1, P_2)
pli2 = LineBisector(M_1, M_2)
M_3 = Intersect(pli1, pli2)
P_3 = (2.1408999937439983, -1.5317696224398079)
pli3 = OrthogonalLine(P_3, pli2)
M_5, M_4 = Intersect(d, pli3)
pli4 = LineBisector(M_4, M_5)
M_6 = Intersect(pli3, pli4)
j_1 = Segment(M_3, M_6)
pli5 = LineBisector(M_3, M_6)
M_8, M_7 = Intersect(d, pli5)
l_1 = LineBisector(M_7, M_8)
M_9 = Intersect(d, l_1)
m_1 = OrthogonalLine(M_9, l_1)