Interactive Polar Plotting

Manipulate[PolarPlot[Sin[6t]^2,{t,0,i*Pi/6},
ColorFunction->Function[t,Hue[12*Sin[t]/i]],
                                  PlotStyle->Thick,ImageSize->Large],
{i,Range[1,12,1]}]