A = (2, 1)
B = (8, 1)
C = (6, 6)
Vieleck1, c, a, b = Polygon(A, B, C)
d = OrthogonalLine(C, c)
D = Intersect(d, c)
h_c = Segment(C, D)
e = OrthogonalLine(A, a)
f = OrthogonalLine(B, b)
E = Intersect(b, f)
F = Intersect(e, a)
h_a = Segment(A, F)
h_b = Segment(B, E)