Draw this interesting pattern:

> plot(100+t+15*cos(3.05*t),t=0..200,coords=polar,axes=none,scaling=constrained,color=coral);

>