Mécanisme à leviers articulés d'une balance à un plateau

EA = 2 (slider from 0 to 3, step 0.1)
A = (1, 5)
s = Circle(A, EA)
C = (1, 1)
u = Vector(C, A)
d = Circle(C, 1.5)
B = Point(d)
D = Translate(B, u)
a = Ray(B, D)
g = Circle(B, 5.5)
G = Intersect(g, a, 1)
e = Circle(G, 3.7)
b = OrthogonalLine(G, a)
F = Intersect(e, b, 2)
f = Circle(F, 1.75)
c = Circle(A, 1.5)
CB = Segment(C, B)
v = Vector(B, D)
AD = Segment(A, D)
BD = Segment(D, B)
h = Circle(B, 7)
q = Circle(A, 4.5)
c_1 = Circle(A, 4.9)
a_1 = Ray(A, D)
J = Intersect(c_1, a_1, 1)
arcmesure1 = Segment(A, J)
d_1 = Circle(A, J)
e_1 = Circle(J, 9.5)
K = Intersect(d_1, e_1, 2)
arcmesure2 = CircleArc(A, K, J)
H = Intersect(h, a, 1)
j = Segment(F, G)
k = Segment(D, G)
l = Segment(G, H)
E = Intersect(s, f, 1)
i = Segment(F, E)
m = Segment(E, A)
r = Circle(E, 5)
p = Circle(A, 3.9)
I = Intersect(r, p, 2)
n = Segment(A, I)