Make a series of images that can be used to see animation of a bird-like thing "flying" in this notebook.  Also produce a z.gif animated GIF. 
Mark Senn   http://www.ecn.purdue.edu/~mark   2006-12-07

Needs["Graphics`Animation`"]

Export[
	"z.gif",
	Table[
	    Plot3D[
	        Cos[t] Cos[x+ y],
	        {x, 0, Pi},
            {y, 0, Pi},
            Axes->False,
            Boxed->False,
            ColorFunction->Hue,
            (* Setting Lighting to False will make
               Mathematica use ColorFunction instead
               of normal lighting. *)
            Lighting->False,
            Mesh->False,
            PlotRange->{-1,1},
            ViewPoint -> {2,-3,0.3}
        ],
        {t, 0, 23 Pi/12, Pi/12}
    ],
    ConversionOptions->{"Loop"->True}
]