v

A_1 = Intersect(xAxis, yAxis)
B = (-0.86638, 1.34578)
n = Vector(A_1, B)
a = Line(A_1, B)
t = 0.5 (slider from -5 to 5, step 0.1)
v = OrthogonalVector(Vector[-n])
A = (0.99702, -1.2896)
P: A + t * v
b = Line(A, P)