Surface Textures

cp3=ContourPlot3D[z==x^2-y^2/9,{x,-3,3},{y,-3,3},{z,-3,3},
Mesh->50,ContourStyle->{Blue,Opacity[0.1]},MeshStyle->{Blue,Red},
MeshFunctions->{Sin[#1*#3/2]*Cos[#2*#3/2]&,Sin[#2*#3/2]*Cos[#1*#3/2]&}];
cp4=ContourPlot3D[z==x^2+y^2/4+1,{x,-3,3},{y,-3,3},{z,-3,3},
Mesh->25,ContourStyle->{Blue,Opacity[0.2]},MeshStyle->{Blue,Red},
MeshFunctions->{Sin[#2*#3/2]*Cos[#1*#3/2]&,Sin[#1*#3/2]*Cos[#2*#3/2]&}];
Show[cp3,cp4,PlotRange->All,Axes->False,Boxed->False]