ParametricPlot[(1+t Sin[t]^2){Cos[1/t],Sin[1/t]},{t,Pi,10Pi}]