a fleeting image of the quadratrix

Now do the same with the right hand side falling to the bottom.

> seg2 := t -> plot([[0,0],[cos(Pi/2*(1-t)),sin(Pi/2*(1-t))]],color=red,thickness=3);

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

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