AA = (-1.86, 1.46)
P = (-2, 4.36)
BB = (2.52, 3.6)
a = Segment(AA, P)
b = Segment(P, BB)
A1 = Point(Segment[AA, P])
B1: P + AffineRatio[AA, P, A1] * (BB - P)
d = Segment(A1, B1)
C1: A1 + AffineRatio[AA, P, A1] * (B1 - A1)
lugar1 = Locus(C1, A1)
t = 0.32 (slider from 0 to 1, step 0.0010)
A2: AA + (P - AA) * t
B2: P + (BB - P) * t
e = Segment(A2, B2)
C2: A2 + (B2 - A2) * t
A: AA
B: BB
A': A2
P': B2