The functionality of RotateShape, TranslateShape, and AffineShape is provided by the newly added kernel functions Rotate, Translate, Scale, and GeometricTransformation.
Sphere, Cylinder, and Cone are available as the new built-in kernel functions Sphere, Cylinder, and Cone.
Torus and MoebiusStrip are available in the kernel function ExampleData.
Version 5.2
![<< Graphics`Shapes`;
Show[Graphics3D[MoebiusStrip[3, 1]]]](Files/Shapes.en/legacy_1.gif)
ExampleData[{"Geometry3D", "MoebiusStrip"}]Scale in the directions of the coordinate axes:
Version 5.2
![<< Graphics`Shapes`;
Show[AffineShape[Graphics3D[Cylinder[]], {2, 1, 1}]]](Files/Shapes.en/legacy_2.gif)
Graphics3D[Scale[Cylinder[], {2, 1, 1}, {0, 0, 0}]]
Version 5.2
![<< Graphics`Shapes`;
Show[Graphics3D[Torus[3, 1]],
TranslateShape[Graphics3D[Torus[3, 1]], {3, 0, 0}]]](Files/Shapes.en/legacy_3.gif)
Show[{ExampleData[{"Geometry3D", "Torus"}], ExampleData[{"Geometry3D", "Torus"}] /. Graphics3D[gr_, opt___] :> Graphics3D[Translate[gr, {3, 0, 0}], opt]}]Rotate the Moebius strip by the Euler angles 
, 
, and 
:
Version 5.2
![<< Graphics`Shapes`;
Show[RotateShape[Graphics3D[MoebiusStrip[3, 1]], Pi/4, Pi/3, Pi/2]]](Files/Shapes.en/legacy_4.gif)
mat = RotationMatrix[Pi - Pi / 2, {0, 0, 1}].RotationMatrix[Pi / 3, {1, 0, 0}].RotationMatrix[Pi - Pi / 4, {0, 0, 1}];
ExampleData[{"Geometry3D", "MoebiusStrip"}] /. Graphics3D[gr_, opt___] :> Graphics3D[GeometricTransformation[gr, mat], opt]These functions were available in previous versions of Mathematica and are now available on the web at library.wolfram.com/infocenter/MathSource/6793:
DoubleHelix
Helix
OutlinePolygons
PerforatePolygons
ShrinkPolygons
WireFrame