Data: the curve

Define a curve in the plane, here a simple Lissajous figure:

>	r:=[sin(2*t),sin(3*t)]; t0:=0; tn:=2*Pi;

View the image of the curve:

>	curve:=plot([op(r),t=t0..tn],        color=black,thickness=1,axes=none):

Number of points to be plotted, and times at which they are to be placed:

>	n:=240: tt:=[seq(t0+k/(n-1)*(tn-t0),k=0..n-1)]: first_3_times=tt[1..3];

>	curveanim:=display([seq(     display([curve,              plot([[0,0],r],thickness=2,color=blue),              plottools[disk](r,.02,color=red)]),     t=tt)],     insequence=true):

>