A = (-3, 6)
B = (-3, -3)
l = Line(A, B)
F = (-1, 3)
Q = Point(l)
b = OrthogonalLine(Q, l)
c = LineBisector(Q, F)
P = Intersect(b, c)
d = Segment(Q, P)
e = Segment(P, F)