1

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]

enter image description here

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]
vito
  • 8,958
  • 1
  • 25
  • 67

0 Answers0