a = 0 (slider from 0 to 1, step 0.01)
L: (0, 1.3)
K = (0, -2)
A = Intersect(xAxis, yAxis)
B = (1, 1)
C = Point(xAxis)
D = (3, -1)
E = Point(xAxis)
F = (5, -1)
G = Point(xAxis)
H = (7, 1)
f = PolyLine(A, B, C, D, E, F, G, H)
I = Point(yAxis)
J = (7, -3)
u = Vector(I, J)
A' = Translate(A, u)
B' = Translate(B, u)
C' = Translate(C, u)
D' = Translate(D, u)
E' = Translate(E, u)
F' = Translate(F, u)
G' = Translate(G, u)
H' = Translate(H, u)
f' = PolyLine(A', B', C', D', E', F', G', H')
A'' = Translate(A', u)
B'' = Translate(B', u)
C'' = Translate(C', u)
D'' = Translate(D', u)
E'' = Translate(E', u)
F'' = Translate(F', u)
G'' = Translate(G', u)
H'' = Translate(H', u)
f'' = PolyLine(A'', B'', C'', D'', E'', F'', G'', H'')
g = Segment(K, L)
M = Dilate(L, a, K)
h = Line(M, u)
l(x) = x / 7 + y(M)