curva

Puntos inicial, punto final y punto de anclaje

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)