A_1 = (-8.18, -2.48)
o = (2.08, 2.98)
f = Line(A_1, o)
C_1 = (-9.38, -2.76)
l = (3.52, -0.66)
g = Line(C_1, l)
A = Point(g)
B = Point(g)
C = Point(g)
D = Point(g)
r: Distance[C, A] / Distance[C, B] / (Distance[D, A] / Distance[D, B])
CA = Distance(C, A)
ca: CA
CB = Distance(C, B)
cb: CB
DA = Distance(D, A)
da: DA
DB = Distance(D, B)
db: DB
M = (-2.2, 4.26)
h = Line(A, M)
i = Line(B, M)
j = Line(C, M)
k = Line(D, M)
A' = Intersect(f, h)
B' = Intersect(f, i)
C' = Intersect(f, j)
D' = Intersect(f, k)
E = Intersect(f, g)
m = Segment(A, A')
n = Segment(B, B')
p = Segment(C, C')
q = Segment(D, D')
s = Segment(D', M)
t = Segment(C', M)
a = Segment(B', M)
b = Segment(A', M)
c = Line(B', A)
d = Line(A', B)
F = Intersect(c, d)
Eje = Line(E, F)