Areas as Creativity Reflections 2

ColTab=Table[RGBColor[col],{col,
{"#FD5B78","#3366FF","#EE34D2","#50BFE6","#FF6037","#66FF66",
"#FFFF66","#FF6EFF","#FFCC33","#AAF0D1","#FF00CC","#CCFF00"}}]
GPP[t_]:=Graphics3D[{Opacity[.7],EdgeForm[None],
Polygon[Table[{(13-t/2) Cos[2Pi k/(13-t)],
(13-t/2) Sin[2 Pi k/(13-t)],3t},{k,13-t}],
VertexColors->Table[ColTab[[k]],{k,13-t}]]}];
Show[Table[GPP[i],{i,Range[1,10,3]}],Boxed->False,ImageSize->500]