a: 0.8
h: 4
v: -3
c: y = (a * (x - h)^(2)) + v
f = Segment((h, v), (h, 0))
A = Intersect(c, xAxis, 1)
g = Segment((h, 0), A)
u: (-(h, v))
b = 0 (slider from 0 to 1, step 0.05)
p = Translate(c, Vector[(b * u)])
s = Translate(f, Vector[(b * u)])
t = Translate(g, Vector[(b * u)])
P = Translate(A, Vector[(b * u)])