A = (2, 1)
B = (1, -3)
a = Segment(A, B)
m = LineBisector(a)
P = Intersect(r, m)