Hey everyone. I was playing around with the xyz data in Mathematica, and I figured I'd share what I came up with. For those that are interested, this is the code I used to create the image: dir="C:\\Users\\rhennigan\\Documents\\Mathematica"; (* Change this to match your file location. *) sampleRate=4; (* Larger value gives lower resolution. Try values 16, 8, 4, 2, and then 1 (includes all data). *) heightScale=1.5; (* Use this to exaggerate elevation, 1.0 is actual. *) SetDirectory[dir]; data=Partition[Partition[ReadList["chernarus_8WVR.xyz",Real],3],2048]; data=data[[1;;2001,1;;2001]]; low=Min[data[[All,All,3]]]; high=Max[data[[All,All,3]]]; range=high-low; zScale=(range+110)/15000; lowData=Partition[Flatten[data[[;;;;sampleRate,;;;;sampleRate]]],3]; scaleWater[z_]:=If[z<0,ColorData["AtlanticColors"][Abs[(z-low)/(low-400)]],ColorData["GreenBrownTerrain"][-((high-z)/(high+200))+1]]; (* You can mess around with this function to change the colors. *) palettes=30; step=range/palettes; legend=Graphics[{ White,EdgeForm[None],Inset[style["ELEVATION",{Bold,FontFamily->"Arial",14}],{low-step/5,.5step},Right], Table[{ Black,EdgeForm[black],scaleWater,Rectangle[{i+step/15,step/15},{i+step-step/15,step-step/15}],Inset[style[integerPart@i,{If[i<0,White,Black],Bold,FontFamily->"Arial",11}],{i+.5step,.5step},{Center,Center}]},{i,low,high,step}]},ImageSize->1250]; map=Rasterize[show[{ ListPlot3D[lowData,ColorFunction->Function[{x,y,z},scaleWater[z]],ColorFunctionScaling->False,Mesh->15,MeshStyle->Opacity[.25],PlotRange->{low-100,high+10},Filling->Bottom,FillingStyle->scaleWater[low]] },ImageSize->1920,BoxRatios->{1,1,zScale*heightScale},Boxed->False,Axes->False],RasterSize->1920]; image=Show[{map,Graphics[Rotate[inset[legend,Scaled[{.375,.25}],Center],-0.365]]}]; Export["chernarus.png",image]