Corpo

P = -3.1 (slider from -5 to 5, step 0.1)
C = (-3.02, 2.68)
A = (-2, 2)
B = (1, 0)
a = Line(A, B)
D: (x(C), y(C) + P)
u = Vector(C, D)
E = Point(a)
c = OrthogonalLine(E, a)
F = Point(c)
RV = Vector(E, F)
G = (3, 3)
G' = Translate(G, RV)
RV' = Vector(G, G')
G'_1 = Translate(G, u)
z = Vector(G, G'_1)
b = Line(G', z)
d = Line(G'_1, RV')
H = Intersect(b, d)
R = Vector(G, H)
f = OrthogonalLine(D, a)