Sample 3D Model: Rumpled Fabric

Source Notebook

3D model of rumpled fabric

Details

Additional content elements include:
"BoundaryMeshRegion"boundary mesh region representation
"BoundingBox"bounding box
"ConnectedComponents"number of connected components
"Graphics3D"Graphics3D representation
"MeshRegion"mesh region representation
"PolygonCount"number of polygons
"Region"region representation
"Summary"summary information
"VertexCount"number of vertices
“Description"description
“LongDescription"long description
“Name"English name
StandardName"standard English name

Examples

Basic Examples (2) 

Retrieve the model:

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Sample 3D Model: Rumpled Fabric\>\"",
#& ,
BoxID -> "ResourceTag-Sample 3D Model: Rumpled Fabric-Input",
AutoDelete->True]\)]
Out[1]=

Summary properties:

In[2]:=
ResourceData[\!\(\*
TagBox["\"\<Sample 3D Model: Rumpled Fabric\>\"",
#& ,
BoxID -> "ResourceTag-Sample 3D Model: Rumpled Fabric-Input",
AutoDelete->True]\), "Summary"]
Out[2]=

Scope & Additional Elements (2) 

Find the minimum-volume ball that encapsulates the mesh:

In[3]:=
bound = BoundingRegion[ResourceData[\!\(\*
TagBox["\"\<Sample 3D Model: Rumpled Fabric\>\"",
#& ,
BoxID -> "ResourceTag-Sample 3D Model: Rumpled Fabric-Input",
AutoDelete->True]\)], "MinBall"]
Out[3]=

Visualize the mesh together with its bounding ball:

In[4]:=
Show[{ResourceData[\!\(\*
TagBox["\"\<Sample 3D Model: Rumpled Fabric\>\"",
#& ,
BoxID -> "ResourceTag-Sample 3D Model: Rumpled Fabric-Input",
AutoDelete->True]\)], Graphics3D[{Opacity[0.5], bound}]}]
Out[4]=

Wolfram Research, "Sample 3D Model: Rumpled Fabric" from the Wolfram Data Repository (2026)  

Data Resource History

Source Metadata

See Also

Data Downloads

Publisher Information