Construct the envelope formed by a fix diameter of a circle rolling along a straight line.

> m:=[[t-sin(t),-cos(t)],[t+sin(t),cos(t)]]:

> t:=n*Pi/50:

> plot([m$n=-100..100],axes=none,scaling=constrained,color=green);

>