A = (1, 1)
B = (6, 1)
C = (3, 5)
Vieleck1, c, a, b = Polygon(A, B, C)
d = OrthogonalLine(B, b)