ParametricPlot[{{Cos[t],Sin[t]},{Cos[t]+(1/40)Cos[13t],Sin[t]+(1/40)Sin[13t]}},{t,0,2Pi}]