ParametricPlot[{Sin[t]*Cos[Pi/4*(1 - Cos[t])], Sin[t]*Sin[Pi/4*(1 - Cos[t])]}, {t, 0, 2*Pi}]