A = (-2.94, 3.06)
a: x = x(A)
b: y = y(A)
B_1 = Point(b)
c = Ray(A, B_1)
C_1 = Point(a)
d = Ray(A, C_1)
B = Point(c)
f = OrthogonalLine(B, c)
D = (-1.86, 4.34)
e = Line(A, D)
g = Line(B, e)
h = Line(A, B)
i = Line(D, h)
C = Intersect(g, i)
polígono1, c_1, a_1, b_1, d_1 = Polygon(D, A, B, C)
j = Line(A, B)
k = OrthogonalLine(C, j)
l = OrthogonalLine(D, a_1)
E = Intersect(j, l)
F = Intersect(j, k)
m = Segment(F, C)
n = Segment(E, D)
p = Segment(B, F)
q = Segment(A, E)
texto1: "área=" + (LaTeX[d_1]) + "\times" + (LaTeX[m]) + "=" + (LaTeX[polígono1]) + "\ cm^2"