Direttrice

A = (-2, 6)
B = (-2, -3)
dir = Line(A, B)
Fuoco = (0, 1)
Muov = Point(dir)
b = OrthogonalLine(Muov, dir)
c = Segment(Fuoco, Muov)
d = LineBisector(c)
E = Intersect(b, d)
a = Line(Fuoco, E)