A = (-1.3800000000000001, 1.24)
B = (-0.4, 3.94)
a = Segment(A, B)
OcchiO = (3, 1.6400000000000001)
b = OrthogonalLine(OcchiO, a)
D = Intersect(b, a)