\documentclass[border=12pt,pstricks]{standalone}
\usepackage{pst-plot,multido}
\psset{algebraic,plotpoints=1000,unit=5,linewidth=10pt}
\begin{document}
\multido{\iA=20+20}{4}{%
\begin{pspicture}(-1,-1.1)(1,0.8)
\psparametricplot[linecolor=red!50,fillstyle=solid,
fillcolor=red!\iA,linejoin=1]{0}{\psPiTwo}%
{sin(t)^3 | (13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t))/16}
\end{pspicture}}
\end{document}
hello