Distance parcourue en m

Diamètre en mm

O = (0, 0)
A = Point(yAxis)
Diamètre = Segment(A, O)
b = LineBisector(A, O)
F = Intersect(b, Diamètre)
tour = 0 (slider from 0 to 1, step 0.05)
c = Circle(F, Diamètre / 2)
P = Circumference(c)
a: x = P
D = Intersect(xAxis, a)
u = Vector(O, D)
B = Point(F, Vector[(u * tour)])
C = Point(O, Vector[(tour * u)])
e = Segment(O, C)
E = Rotate(C, (6.28 * (P - e) / P), B)
f = Circle(B, C)
g = CircleArc(B, C, E)
texte3: "" + Diamètre + ""
texte1: "" + (LaTeX[e / 1000]) + ""