“inertia”

linear

t = 1 (slider from 0 to 1, step 0.01)
animFunc(x) = (1.01 * Logistic[0.5, 0.0942808, x, true]) - 0.005
I_1 = (-3, 4)
J = (-2, 4)
u = Vector(I_1, J)
G = (-1, 3)
H = Point(yAxis)
F = (-1, 2)
D = (-3, 3)
inertiaT: animFunc(t)
E = (-2, 2)
C = (-3, 2)
A = Intersect(animFunc, xAxis, (1.7065098186390062E-7, 1.4099181891435997E-12))
g: y = 1
B = Intersect(animFunc, g, (0.9999998293490808, 0.9999999999985935))
h: y = x
I = Translate(D, Vector[(inertiaT * u)])
L = Translate(G, Vector[(t * u)])
t2, f, l, m = Polygon(F, L, H)
t1, i, j, k = Polygon(C, I, E)
n: y = 0
p = Segment((t, 0), (t, Max[animFunc(t), t]))
K: (1, 1)
q = Segment(A, K)
α = Angle(I, E, C)
r(x) = (1 / 3 * atand((2 * x) - 1)) + 0.5