A = (-2, -1)
B = (2, 1)
d = Line(A, B)
D = Line((2, 1), Vector[(3, 1)])