How to remove surface from the following graphic?
I need only Mesh, (black lines).
ListPlot3D[
GeoElevationData[
GeoBoundingBox[
GeoDisk[Entity["Mountain", "MountEverest"],
5 Quantity[1, "Miles"]]]], MeshFunctions -> {#3 &},
Mesh -> 30,Boxed -> False, Axes -> False]
and why doesn's work PlotPoints and MaxRecursion?
ListPlot3D[
GeoElevationData[
GeoBoundingBox[
GeoDisk[Entity["Mountain", "MountEverest"],
5 Quantity[1, "Miles"]]]], MeshFunctions -> {#3 &},
Mesh -> 30,Boxed -> False, Axes -> False, PlotPoints -> 100, MaxRecursion -> 10]

PlotStyle -> Opacity[0]– Sascha Jun 05 '16 at 17:21PlotStyle -> Noneis even better for that. – J. M.'s missing motivation Jun 05 '16 at 17:34