Déplacer Alexis à l'aide du curseur ou des flèches du clavier

Le regard d'Alexis fixe le sommet du baton

f(x) = If[-5 ≤ x ≤ 5,(-x^(2)) + 25]
S = (0, 25)
B = (0, 26)
a = 25 (slider from 5 to 25, step 0.1)
b = Segment((a - 0.1, 0), (a, 0.8))
c = Segment((a + 0.1, 0), (a, 0.8))
d = Segment((a, 0.8), (a, 1.5))
g = Segment(B, (a, 1.8))
h = Segment((a - 0.1, 1), (a, 1.3))
i = Segment((a + 0.1, 1), (a, 1.3))
G: (((-((-sqrt(((-100) * a^(2)) + 14641)) - 121))) / ((10 * a)), f(((-((-sqrt(((-100) * a^(2)) + 14641)) - 121))) / ((10 * a))))
j = Segment((a, 1.8), G)
k = Segment(B, S)
l(x, y) = (y ≤ f(x)) ∧ (y ≥ 0)
e: (x - a)^(2) + (y - 1.65)^(2) = 0.15^(2)