<<Graphics`Polyhedra`;
F[0]:=Dodecahedron[]; F[n_]:=Stellate[F[n-1]];
Show[Graphics3D[F[2]],Boxed->False,Background->GrayLevel[0.0]]

