A = (-1.86, 1.46)
P = (-1.52, 4.12)
B = (2.52, 3.6)
A1 = Point(Segment[A, P])
B1: P + AffineRatio[A, P, A1] * (B - P)
C1: A1 + AffineRatio[A, P, A1] * (B1 - A1)
lugar1 = Locus(C1, A1)
C = (8.22, 3.62)
D = (9.66, 2.74)
E = (9.88, 3.7800000000000002)
lugar2 = curva(C, D, E)
F = (8.1, 1.84)
G = (9.5, 1.42)
lugar3 = curva(D, F, G)
H = (5.5200000000000005, 1.68)
I = (6.94, 2.46)
lugar4 = curva(F, H, I)
J = (5.36, -0.9)
K = (3.94, 0)
lugar5 = curva(H, J, K)

Tool: curva
Puntos inicial, punto final y punto de anclaje
Input: A, B, P
Output: lugar1

A1 = Point(Segment[A, P])
B1: P + AffineRatio[A, P, A1] * (B - P)
C1: A1 + AffineRatio[A, P, A1] * (B1 - A1)
lugar1 = Locus(C1, A1)