Utah VW Bug

Source Notebook

3D model of a Utah VW Bug

Details

The Utah VW Bug 3D Model is a copy of the model of the first real object ever 3D scanned, which was a VW Beetle car by University of Utah’s Computer Science department.
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 VW Bug\>\"",
#& ,
BoxID -> "ResourceTag-Utah VW Bug-Input",
AutoDelete->True]\)]
Out[1]=

Summary properties:

In[2]:=
ResourceData[\!\(\*
TagBox["\"\<Utah VW Bug\>\"",
#& ,
BoxID -> "ResourceTag-Utah VW Bug-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["\"\<Utah VW Bug\>\"",
#& ,
BoxID -> "ResourceTag-Utah VW Bug-Input",
AutoDelete->True]\)], "MinBall"]
Out[3]=
In[4]:=
Show[{ResourceData[\!\(\*
TagBox["\"\<Utah VW Bug\>\"",
#& ,
BoxID -> "ResourceTag-Utah VW Bug-Input",
AutoDelete->True]\)], Graphics3D[{Opacity[0.5], bound}]}]
Out[4]=

View the model with roll, pitch, and yaw rotations:

In[5]:=
Multicolumn[Table[TransformedRegion[ResourceData[\!\(\*
TagBox["\"\<Utah VW Bug\>\"",
#& ,
BoxID -> "ResourceTag-Utah VW Bug-Input",
AutoDelete->True]\)], AffineTransform@RollPitchYawMatrix[{r, 0, 0}, {1, 2, 3}]], {r, 0, 2 Pi, 2 Pi/8}], 3]
Out[5]=

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

Data Resource History

Publisher Information