Basic Shapes & Function Plotting

gp=Table[Graphics3D[{ColorData["DeepSeaColors",i/210],
Opacity[i/210],Dodecahedron[{Sin[i/20]*Cos[i/20],
Cos[i/30]^2,Sin[i/20]^2},0.03]}],
{i,Range[1,210,1]}];
Show[gp,Boxed->False,Axes->False,ImageSize->Large]