A = Intersect(xAxis, yAxis)
B = (3.7, 3.24)
C = (6.32, -2.34)
e = Segment(A, B)
Q_1 = Segment(A, C)
c = Segment(B, C)
a = -0.63 (slider from -3 to 3, step 0.01)
u: a * Vector[A, B]
P = Translate(A, u)
v = Vector(A, P)
w: a * Vector[C, A]
Q = Translate(C, w)
z = Vector(C, Q)
b: a * Vector[B, C]
R = Translate(C, b)
d = Vector(C, R)
f = Line(P, R)