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

B = (0, 0)
A = (0, 5)
G = (4, 5)
c = Circle(G, A)
H = Point(c)
a = Segment(G, H)
d = Circle(A, 3)
e = Circle(H, 5)
L = Intersect(d, e, 2)
b = Segment(A, L)
f = Segment(H, L)
h = Circle(A, 5)
g = Circle(H, 3)
K = Intersect(h, g, 1)
i = Segment(K, A)
j = Segment(K, H)
k = Line(L, A)
p = Circle(A, L)
C = Intersect(p, k, 2)
l = Segment(C, A)
q_1 = Circle(C, 5)
r = Circle(K, 3)
E = Intersect(q_1, r, 2)
m = Segment(C, E)
s = Circle(C, 5)
t = Circle(B, 3)
D = Intersect(s, t, 2)
n = Segment(C, D)
a_1 = Segment(D, B)
c_1 = Circle(D, 5)
d_1 = Circle(E, 5)
F = Intersect(c_1, d_1, 2)
b_1 = Segment(D, F)
e_1 = Segment(F, E)
f_1 = Segment(K, E)
q = Line(E, F)
AG = Line(A, G)
AB = Line(B, A)