Mécanisme à leviers articulés d'un pétrin

A = (0, 0)
c = Circle(A, 1.5)
B = Point(c)
D = (-3.5, -2)
d = Circle(D, 3.7)
e = Circle(B, 1)
f = Circle(B, 3)
C, F_1 = Intersect(f, d)
a = Line(D, C)
g = Circle(C, 1.5)
E_1, F = Intersect(g, a)
h = Circle(B, 1.5)
k = Circle(F, 3)
G, E = Intersect(k, h)
Elt1 = Segment(A, B)
bras_1 = Segment(B, E)
Elt3a = Segment(B, C)
Elt3b = Segment(E, F)
Elt4 = Segment(D, F)
H = Point(bras_1)
p = Circle(H, 2)
b = OrthogonalLine(H, bras_1)
I, J = Intersect(p, b)
i = Line(J, bras_1)
q = Circle(J, 6)
K, L = Intersect(q, i)
j = OrthogonalLine(K, i)
r = Circle(K, 2)
M, N = Intersect(r, j)
l = Segment(H, J)
bras_a = Segment(J, K)
n = Segment(K, N)