ContourPlot[r Cos[2 t] + Sin[r] == 0, {t, -Pi, Pi}, {r, 0, 15}]