WaterDrop.ma

Do[Plot3D[Cos[Sqrt[x^2 + y^2]+Abs[n-2Pi]]/Sqrt[x^2 + y^2 + 1/4],
	{x,-4Pi,4Pi},{y,-4Pi,4Pi},
PlotPoints->26,Lighting->True,PlotRange->{-2,2},
BoxRatios->{1,1,1},Boxed->False,Axes->False],
{n, 0, 2Pi - (2Pi/16), 2Pi/16}]