La roue de bicyclette roule en ligne droite,
de la gauche vers la droite.
# équations de la cycloïde
x := t -> t - sin(t) ; y := t -> 1 - cos(t) ;
# représentation du rayon
Line1 := u -> line([x(u),y(u)],[u,1],color=black) ;
myoptions := scaling=constrained ;
# arrière-plan: la cycloïde en personne!
bg := plot({[x(t),y(t),t=0..2*Pi],[t,1,t=0..2*Pi]},myoptions,color=blue) :
F := proc(u) plots[display](Line1(u)) end ;
# yapuka lancer l'animation
animate(F,[u],u=0..2*Pi,background=bg,frames=100,myoptions) ;