Utah Teapot

Source Notebook

3D model of a Utah teapot

Details

The Utah Teapot 3D Model is a standard reference test model of a teapot that is considered the 3D equivalent of a “Hello, World” program.
Additional content elements include:
“Description"description
“LongDescription"long description
“Name"English name
StandardName"standard English name
"MeshRegion"mesh region representation
"Region"region representation
"PolygonCount"number of polygons
"VertexCount"number of vertices
"ConnectedComponents"number of connected components
"BoundingBox"bounding box
"Summary"summary information

Examples

Basic Examples (2) 

Retrieve the model:

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Utah Teapot\>\"",
#& ,
BoxID -> "ResourceTag-Utah Teapot-Input",
AutoDelete->True]\)]
Out[1]=

Summary properties:

In[2]:=
ResourceData[\!\(\*
TagBox["\"\<Utah Teapot\>\"",
#& ,
BoxID -> "ResourceTag-Utah Teapot-Input",
AutoDelete->True]\), "Summary"]
Out[2]=

Scope & Additional Elements (2) 

Draw a wireframe model:

In[3]:=
MeshRegion[ResourceData[\!\(\*
TagBox["\"\<Utah Teapot\>\"",
#& ,
BoxID -> "ResourceTag-Utah Teapot-Input",
AutoDelete->True]\)], PlotTheme -> "Lines"]
Out[3]=

Find the minimum volume ball that encapsulates the mesh:

In[4]:=
bound = BoundingRegion[ResourceData[\!\(\*
TagBox["\"\<Utah Teapot\>\"",
#& ,
BoxID -> "ResourceTag-Utah Teapot-Input",
AutoDelete->True]\)], "MinBall"]
Out[4]=
In[5]:=
Show[{ResourceData[\!\(\*
TagBox["\"\<Utah Teapot\>\"",
#& ,
BoxID -> "ResourceTag-Utah Teapot-Input",
AutoDelete->True]\)], Graphics3D[{Opacity[0.5], bound}]}]
Out[5]=

Wolfram Research, "Utah Teapot" from the Wolfram Data Repository (2022)  

Data Resource History

Publisher Information