animateSpectra function

Animation of the abundance spectra