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

>

> restart;

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

> t:=k*Pi/20:

> plot([m$k=0..100],color=blue,scaling=constrained,axes=none);

>