bezier3

1 punto inicial, 2 de control y 1 final

B1 = Point(Segment[A1, A2])
t = AffineRatio(A1, A2, B1)
B2: A2 + (A3 - A2) * t
B3: A3 + (A4 - A3) * t
C1: B1 + (B2 - B1) * t
C2: B2 + (B3 - B2) * t
D1: C1 + (C2 - C1) * t
lugar1 = Locus(D1, B1)