Exercises with Polyhedrons

Graphics3D[{FaceForm[{Blue,
Opacity[.03]}],EdgeForm[Gray],
Polyhedron[SortBy[ExampleData[{"Geometry3D",
"SpaceShuttle"},"VertexData"],Last],
Table[{i,i+1,i+2,i+3},{i,310}]]},
Boxed->False,ImageSize->600]