Spinning Stellated Icosahedron

This notebook contains an animated "movie" produced using built-in Mathematica  functions and a standard Mathematica  package. To show the movie:

Select  the closed-group bracket containing the graphics cells and choose the Animate Selected Graphics command from the Graph menu to start the movie.  
Click anywhere in the notebook to stop the animation.

See the notebook  Read  First for a more detailed explanation of how to run a movie, and how to control its speed and direction.

<<Graphics`Animation`
<<Graphics`Polyhedra`
g = Graphics3D[Stellate[Icosahedron[]], Background->RGBColor[0,0,0],
Boxed->False]
SpinShow[g, Frames->8, SpinRange->{0 Degree, 72 Degree}]