Construct the envelope of the light rays emitted from a radiant point source at the circumference
after reflection by the same circle.

> restart;

> m:=[[-1,0],[cos(t),sin(t)],[cos(t)-cos(3/2*t),sin(t)-sin(3/2*t)]]:

> t:=k*Pi/50-Pi:

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

>