Mécanisme à leviers articulésà un élément animé d'un mouvement rectiligne progressif

A = Point(xAxis)
AB = 3 (slider from -10 to 13, step 0.1)
c = Circle(A, AB)
D: (0.8 * AB, 0)
d = Circle(D, AB)
B = Point(c)
e = Circle(B, 0.4 * AB)
EF = 1 (slider from -10 to 10, step 0.1)
H: (0, -EF)
bielle1 = Segment(A, B)
f = Circle(B, 0.4 * AB)
C_1, C = Intersect(f, d)
bielle2 = Segment(C, B)
bielle3 = Segment(C, D)
E = Midpoint(bielle2)
F_1 = Center(e)
h = Circle(E, EF)
F = Point(h)
k = Circle(F, 0.2 * AB)
p = Circle(B, EF)
I, G = Intersect(k, p)
bielle4 = Segment(E, F)
bielle5 = Segment(F, G)
bielle6 = Segment(G, B)
bielle7 = Segment(G, H)