A = (-0.62, -1.98)
B = (5.82, -1.42)
polígono1, lado1, lado2, lado3, C = Polygon(A, B, 3.0)
D = (1.68, 0.3)
recta1 = Line(A, B)
recta2 = Line(B, C)
recta3 = Line(C, A)
c = Segment(D, Intersect[recta1, OrthogonalLine[D, recta1]])
a = Segment(D, Intersect[recta2, OrthogonalLine[D, recta2]])
b = Segment(D, Intersect[recta3, OrthogonalLine[D, recta3]])
angAB = Angle(A, D, B)
angBC = Angle(B, D, C)
angCA = Angle(C, D, A)
test: sgn(180.0° - {angAB, angBC, angCA})
suma: c * Element[test, 1.0] + a * Element[test, 2.0] + b * Element[test, 3.0]
sa = If(Element[test, 1.0] < 0.0, " - ", "")
sb = If(Element[test, 2.0] < 0.0, " - ", " + ")
sc = If(Element[test, 3.0] < 0.0, " - ", " + ")
texto1 = Text("Suma = " + sa + "a" + sb + "b" + sc + "c = " + sa + c + sb + a + sc + b + " = " + suma)
panel, d, e, f, g = Polygon((-6.0, 5.5), (-6.0, 8.0), (25.0, 8.0), (25.0, 5.5))
lista1: {Polygon[A, B, C]}