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:=n*Pi/50;

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

>