Il existe contact de la caisse avec l´échelle lorsque FD/FA=DC/AE 

cliquer lorsque la situation est bonne

g = 1.008 (slider from 0 to 2.5, step 0.0010)
A = Intersect(xAxis, yAxis)
B = (0.7, 0)
polígono1, a, b, c, d_1, C, D = Polygon(A, B, 4.0)
E: (g, 0.0)
e = Circle(E, 2.5)
F = Intersect(e, yAxis, 1.0)
f = Segment(E, F)
h = Segment(F, A)
d = Segment(A, E)
texto1: "La hauteur h est égale à " + h + "  quand la distance au mur est   " + d
G = Intersect(f, b)
i = Segment(F, D)
B8: i / h
B9: c / d
texto4: "FD/FA= " + (i / h) + "   DC=AE=  " + (c / d)
j = false