PolarPlot & ParametricPlot

tpp=PolarPlot[Evaluate[Table[Cos[12t]+i,{i,3}]],{t,0,2Pi},
ColorFunction->Function[{x,y,t,r},ColorData["CandyColors"][r]],
RegionFunction->Function[{x,y,t,r},Cos[12t]<0.75]];
trp=ParametricPlot[Evaluate[Table[{(Cos[12t]/2+i)*Cos[t],
(Cos[12t/2]+i)*Sin[t]},{i,3}]],{t,0,2Pi},
ColorFunction->Function[{x,y,t},
ColorData["CandyColors"][Abs[Cos[12t]]]]];
Show[tpp,trp,Axes->False,ImageSize->500]