A = (6.946393637109837, 2.8958418708630695)
B = (15.530556783487379, 3.013433146840844)
a = Segment(A, B)
C = (13.502107272870767, -1.4256375213201438)
b = Segment(B, C)
c = Line(A, b)
d = Line(C, a)
D = Intersect(c, d)
e = Segment(A, D)
f = Segment(D, C)