I came across a neat image for a graph, and I wanted to reproduce this as a .gif using Mathematica (I have the 9th home edition). The following block of code produces a simple "picture":
ContourPlot3D[{2-Sqrt[1 - x^2 - (y - Abs[x])^2] Cos[30 (2 - x^2 - (y - Abs[x])^2)]}, {x, -1, 1}, {y, -1, 1.5}, {z, 1,2}]
What I would like is something ideally like that provided in the link above, where the image is rotating without it being prompted to do so. Is there a way to do this?
