d_∞

S = (-2.5487184717949543, 0.7110913828179546)
A = (-2, 3)
B = (1.172391832382693, 2.29128890924956)
sa = Line(S, A)
sb = Line(S, B)
ab = Line(A, B)
O = (1.733107083697133, -0.1044944372757772)
Ox = Ray(O, O + (1, 0))
R = Point(Ox)
c = Circle(O, R)
M = Point(c)
ma = Line(M, A)
mb = Line(M, B)
P = Intersect(sb, ma)
Q = Intersect(sa, mb)
pq = Line(Q, P)
sm = Line(S, M)
I = Intersect(ab, pq)
N = Intersect(pq, sm)
lieu1 = Locus(N, M)
ab' = Dilate(ab, 2, S)