An animation of the top falling to the bottom

seg1 is a function which draws the top in the right place at time t.

> seg1 := t -> plot([[0,1-t],[1,1-t]],color=blue,thickness=3);

Animate the top falling to the bottom by building a frame function and then displaying a sequence of frames with insequence = true.

> frame1 := t -> plots[display]([sqr,seg1(t)]);

> plots[display]([seq(frame1(i/40),i=0..40)],scaling=constrained,insequence=true);