PolarFilledPlot

PolarFilledPlot allows the creation of curves in polar coordinates with the interior of the curve filled with a color or GrayLevel.  It will accept the standard Graphics Options.

PolarFilledPlot[func_, {var_, varmin_, varmax_}, col_, 
        opts___?OptionQ] :=  
      Module[{conversion, picklesplt, 
          ourplt}, 
pickles  =  {opts}; 
colorval  =  
          col; 
conversion[Line[l_], 
            colorval_] := {{Hue[colorval], Polygon[l]}, 
            Line[l]}; 
plt  =  PolarPlot[
              func, {var, varmin, varmax}, 
              DisplayFunction  ->  
                Identity][[1]]; 
ourplt  =  
          Show[Graphics[
              Cases[plt, _Line, Infinity] /. 
                l_Line :> 
                  conversion[l, colorval]], 
Evaluate[
              pickles], 
            DisplayFunction  ->  $DisplayFunction]
]

An example

Here is the plot of a cardioid with the interior filled with a bright purple.

PolarFilledPlot[ 3 - 3 Sin[t], {t, 0, 2 Pi},  .95, 
      Axes  ->  True, AxesFront  ->  True, 
      AspectRatio ->  Automatic]