A = (-1.14, 1.16)
B = (1.46, 2.22)
a = Segment(A, B)
C = Midpoint(a)
b = OrthogonalLine(C, a)
D = Point(b)