A = (-1, 1)
B = (5, 3)
b = Segment(B, A)
C = Point(c)
área, c_1, a_1, b_1 = Polygon(A, B, C)
d = OrthogonalLine(C, a)
D = Intersect(d, a)
e = Segment(C, D)