A = (8, 10)
B = (-10, 8)
H = (2, 4)
a = Line(A, H)
b = Line(B, H)
c = OrthogonalLine(B, a)
d = OrthogonalLine(A, b)
C = Intersect(c, d)
polígono1, c_1, b_1, a_1 = Polygon(B, A, C)