<<CheminPackLocaux`

Off[General::"spell1"]

r1=.8;t0=0; t1=2 ;
Unprotect[C];o={0,0};
n=36;   (* de préférence pair  *)
ω=7; φ1=0;
α1[t_]:=ω t+φ1;
x1[t_]:=r1 Cos[α1[t]];
y1[t_]:=r1 Sin[α1[t]];
p1[t_]:={x1[t],y1[t]};
r2=1.2;  φ2=-2;
r=Max[r1,r2];
d=0.2 r;t2=t1+r+2 d;c=t2;C={c,0};
α2[t_]:=ω t+φ2;
x2[t_]:=r2 Cos[α2[t]];
y2[t_]:=r2 Sin[α2[t]];
p2[t_]:={x2[t],y2[t]};
g[j_]:=Plot[{y1[τ],y2[τ]},{τ,t0,j(t1/n)},Prolog->
{Circle[C,r1],Circle[C,r2],{PointSize[0.01],Point[C],Point[p1[j(t1/n)]+C],Point[{j(t1/n),y1[j(t1/n)]}],Point[p2[j(t1/n)]+C],Point[{j(t1/n),y2[j(t1/n)]}]},{Line[{C,p1[j(t1/n)]+C,{j(t1/n),y1[j(t1/n)]}}]},{Dashing[{0.01}],Line[{C,p2[j(t1/n)]+C,{j(t1/n),y2[j(t1/n)]}}]},Text["(Subscript[H, 1])(t)",1.2p1[j(t1/n)]+C],Text["(Subscript[H, 2])(t)",1.15p2[j(t1/n)]+C]},AspectRatio->Automatic,PlotRange->{{-2d,t2+r+d},{-r-d,r+d}},Ticks->{{{0,"0"},{j(t1/n),"t"}},{{y1[j(t1/n)],"(Subscript[y, 1])(t)"},{y2[j(t1/n)],"(Subscript[y, 2])(t)"}}},PlotStyle->{Dashing[{}],Dashing[{0.01}]},ImageSize->{500,300},AspectRatio->(3/5)];
Animate[g[j],{j,1,n}]