Ortocentro

Triángulo

polígono1, c, a, b = Polygon(A, B, C)
d = OrthogonalLine(B, b)
f = OrthogonalLine(A, a)
H = Intersect(f, d)