Point de fuite

A = (5.399333311423635, 2.6593242057153703)
B = (36.01933331142366, 2.6593242057153703)
a = Line(A, B)
C = Point(a)
D = (3.044436519552283, -11.563816259955912)
E = (17.022503596403393, -11.652918706339054)
b = Segment(D, E)
c = OrthogonalLine(E, b)
F = Point(c)
d = OrthogonalLine(F, c)
e = OrthogonalLine(D, b)
G = Intersect(d, e)
poly1, d_1, e_1, f, g = Polygon(D, E, F, G)
h = Segment(G, C)
i = Segment(F, C)
j = Segment(E, C)
k = Segment(D, C)
H = Point(h)
l = Line(H, f)
I = Intersect(l, i)
m = Line(I, e_1)
J = Intersect(m, j)
n = Line(J, b)
K = Intersect(n, k)
poly2, k_1, j_1, i_1, h_1 = Polygon(K, J, I, H)
p = Segment(G, H)
q = Segment(F, I)
r = Segment(E, J)
s = Segment(D, K)