Surface Volumes

f[x_,y_,z_]=x^2+y^2-z^2;
tp=Table[ContourPlot3D[f[x,y,z]==0,
{x,-k,k},{y,-k,k},{z,-k,0},
Mesh->90/k,MeshStyle->Blue,
ContourStyle->{Blue,Opacity[1-0.1*k]}],{k,Range[3,6,3]}];
Show[tp,Boxed->False,
Axes->{False, False, True},PlotRange->All]