Mesh from Data

Version 11 provides direct access to a large volume of curated 3D geometric models such as polyhedra, knots, anatomical structures, and geometric features, specially organized and created for the Wolfram Language.

PolyhedronData.

In[1]:=

showMeshGrid[f_, names_] := Grid[{Framed[ Show[ImagePad[ Rasterize[ If[f === GeoElevationData, f[#, Automatic, "Region"], f[#, "Region"]], "Image", ImageSize -> {100, 100}, Background -> None], 10, RGBColor[1, 1, 1, 0]], PlotLabel -> format[#], Method -> {"ShrinkWrap" -> False}, ImageSize -> 100], RoundingRadius -> 10, Background -> Lighter[Gray, 0.9], FrameStyle -> GrayLevel[0.5]] & /@ names}] format[GeoDisk[s_, ___]] := format[s] format[e_Entity] := First[StringSplit[CommonName[e], ","]] format[s_] := s

In[2]:=

showMeshGrid[PolyhedronData, {"Dodecahedron", "SnubCube", "Echidnahedron", "CumulatedCube"}]

Out[2]=

KnotData.

In[3]:=

showMeshGrid[KnotData, {"Trefoil", "FigureEight", "SolomonSeal", "Stevedore"}]

Out[3]=

ChemicalData.

In[4]:=

showMeshGrid[ChemicalData, {"Water", "Caffeine", "SulfuricAcid", "DTyrosine"}]

Out[4]=

AnatomyData.

In[5]:=

showMeshGrid[AnatomyData, {"Liver", "Eye", "LeftHand", "Skull"}]

Out[5]=

GeoElevationData.

In[6]:=

showMeshGrid[GeoElevationData, {Entity["Mountain", "MountEverest"], Entity["Country", "Switzerland"], Entity["AdministrativeDivision", {"Hawaii", "UnitedStates"}], GeoDisk[Entity["UnderseaFeature", "MarianaTrench"], Quantity[30, "Miles"]]}]

Out[6]=