Déplacer le point B avec ce curseur

k = 0.66 (slider from 0 to 1, step 0.01)
A = Intersect(xAxis, yAxis)
B_1 = Point(yAxis)
C = (0.5788143889588019, 6.0237584485963165)
D = Point(xAxis)
poly1, a, b, c, d = Polygon(A, B_1, C, D)
E = Point(a)
e = Segment(A, E)
B: (0.0, k)
f = Segment(A, B)
F = (-5.071329858668519, 1.0006791464425993)
g = Segment(F, B)
h = Line(F, B)
M = Intersect(h, xAxis)
i = Segment(B, M)
t: 0.6 * Distance[A, B]
T: 1.8 / (0.6 - t)
texte2: "HM ≅ " + T + " m"
texte1: "AB ≅ " + t + " m"