A = (0.04, -1.78)
B = (7.5, -1.76)
a = Segment(A, B)
C = (2.34, 2.58)
b = Line(C, a)
c = Segment(A, C)
d = Line(B, c)
D = Intersect(b, d)
polígono1, b_1, d_1, c_1, a_1 = Polygon(B, D, C, A)
Textopolígono1: "Área de  " + (Name[B]) + (Name[D]) + (Name[C]) + (Name[A]) + " = " + polígono1
Pontopolígono1 = PointIn(polígono1)
α, β, γ, δ = Angle(polígono1)